дан двумерный массив. сформировать одномерный массив из минимальных элементов каждой строки.pascal
Ответы
Ответ дал:
0
var a: array[1..10,1..10] of Integer;
b: array[1..10] of Integer;
i, j, min: Integer;
Begin
for i := 1 to 10 do
begin
min := 10;
for j := 1 to 10 do
begin
a[i,j] := random(10);
write(a[i,j],' ');
if a[i,j] < min then min := a[i,j];
end;
b[i] := min;
writeln;
end;
writeln;
for i := 1 to 10 do
write(b[i],' ');
End.
b: array[1..10] of Integer;
i, j, min: Integer;
Begin
for i := 1 to 10 do
begin
min := 10;
for j := 1 to 10 do
begin
a[i,j] := random(10);
write(a[i,j],' ');
if a[i,j] < min then min := a[i,j];
end;
b[i] := min;
writeln;
end;
writeln;
for i := 1 to 10 do
write(b[i],' ');
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад