№1 Перед вами представлена программа для нахождения строки с минимальной суммой

элементов в массиве целых чисел размерностью 4х5.

Задание: исправить ошибки в программе.

uses crt;

var

a:array[1..4,1..5]of integer;

i,j,s,s_min,k:integer;

begin

Procedure vvod_massiva;

for i:=1 to 4 do

for j:=1 to 5 do

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

end;

Procedure vivod_massiva

begin

for i:=1 to 4 do

for j:=1 to 5 do

writeln(a[i,j]:5);

end;

Procedure mini;

begin

for j:=1 to 5 do

s_min:=s_min+a[1,j];

k:=1;

i:=2;

while i>5 do

for j:=1 to 4 do

s:=s+a[i,j];

if s_min<s then begin

s_min:=s;

k:=i;

s:=0;

end;

i:=i+1;

writeln;

writeln ( s_min);

writeln(k);

end.​

Sobsrhjj    3   10.02.2021 08:49    4