Как вывести индекс массива в данной задаче? program gdiagle ;uses crt;vari,j,max:integer;a:array[1..5,1..10] of integer;s:array[1..10] of integer;beginfor i:=1 to 5 dobeginfor j:=1 to 10 dobegina[i,j]:=random(50);write (a[i,j],...
Как вывести индекс массива в данной задаче?
program gdiagle ;
uses crt;
var
i,j,max:integer;
a:array[1..5,1..10] of integer;
s:array[1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50);
write (a[i,j],' ' )
end;
writeln
end;
writeln ('');
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
if j=i then
begin
if max
Гость
Гость
Ответ(ы) на вопрос:
ГостьНужно сделать отдельную переменную, которая будет запоминать i и j у максимального, а потом их вывести
Не нашли ответ?
Похожие вопросы