Цитата Marishka_ (
)
заполнить одномерный массив наименьшими значениями элементов строк, вывести полученную информацию на экран и номера строк, в которых значения наименьшие.
program untitled;
uses crt;
var a[1..15,1..15] of integer;
var b[1..15] of integer;
var i,j: integer;
BEGIN
writeln('Заполните массив');
for i:=1 to 15 do begin { цикл обработки массива }
for j:=1 to 15 do begin { внутренний цикл }
write('Введите ',j,' элемент массива ',i,' строки:');
readln(a[i,j]); { вводим элемент массива }
if (j=1) then b[i]:=a[i][j];
if (a[i,j] end { конец внутреннего цикла }
end { конец цикла }
writeln('Результирующий массив');
for i:=1 to 15 do begin
for j:=1 to 15 do begin
write(a[i,j],' ');
end
writeln(''); { перенос перед новой строчкой массива }
end
END.
