-
- 05 November 2020 Информатика
- Автор: GRAPEGRAPE
Составление программ с двумерными массивами ( в пасхале )
Сформировать массив из положительных элементов той строки матрицы А размерности n×n,где обнаружен наибольший элемент этой матрицы -
- 05 November 2020
- Ответ оставил: Puz1koO
const
n=5;
var
i,j,maxi,maxj:integer;
a:array [1..n,1..n] of integer;
b:array of integer;
begin
maxi:=1; maxj:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end;
end;
writeln;
end;
writeln;
writeln('Строка: ', maxi);
j:=1; i:=1;
repeat
if a[maxi,j] >0 then
begin
setlength(b,i);
b[i-1]:=a[maxi,j];
inc(i);
end;
inc(j);
until j>n;
for j:=0 to length(b)-1 do
write(b[j]:4);
b:=nil;
end.
-
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (20.10.2024) наш сайт содержит 109574 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос