Решение в паскале массив 5х10 заполнить случайными числами [0; 10]. найти строку, в которой сумма элементов максимальна и заменить в этой строке все числа на 0.

const g=5;v=10;

var i,j,s,m,mi:integer;

a:array [1..g,1..v] of integer;

begin

for i:=1 to g do

begin

for j:=1 to v do

begin

a[i,j]:=random(11);

if i=1 then s:=s+a[i,j];

write (a[i,j]:3)

end;

writeln

end;

writeln;

writeln;

m:=s;

mi:=1;

for i:=1 to g do

begin

s:=0;

for j:=1 to v do s:=s+a[i,j];

if s>m then

begin

m:=s;

mi:=i

end

end;

for i:=1 to g do

begin

for j:=1 to v do

begin

if i=mi then a[i,j]:=0;

write (a[i,j]:3)

end;

writeln

end;

end.

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.