Помогите решить задачу ** Паскаль : "Напишите программу вычисления суммы минимальных...

0 голосов
44 просмотров

Помогите решить задачу на Паскаль :
"Напишите программу вычисления суммы минимальных элементов строк заданной матрицы."


Информатика (29 баллов) | 44 просмотров
Дан 1 ответ
0 голосов

Var
a: array[1..20] of integer;
t,x:integer;
begin
for t:=1 to 20 do
a[t]:=random(100);
write('массив с рандомными элементами:');
for t:=1 to 20 do write(a[t], ' ');
writeln;
for t:=1 to 20 do begin
x:=a[t];
a[t]:=a[t+1];
a[t+1]:=x;
t:=t+1 end;
write('переставлены соседние элементы массива:');
for t:=1 to 20 do write(a[t], ' ');
readln;
end. попробуй

(14 баллов)