Ответы
Ответ дал:
0
Ответ:
Объяснение:
Pascal
var a:array[1..100,1..100] of real;
i,j,n,m:integer;
min:real;
begin
WriteLn('Введите количество строк:');
readLn(n);
WriteLn('введите количество столбцов:');
readLn(m);
for i:=1 to n do begin
for j:=2 to m do begin
a[i,j]:=random(20)-5;
Write(a[i,j]:10:2);
end;
WriteLn();
end;
j:=1;
WriteLn('Минимальные элементы строк:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
Write(min:10:2);
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад