Как вывести индекс массива в данной задаче? 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],' ' )end;writelnend;writeln ('');for i:=1 to 5 dobeginfor j:=1 to 10 dobeginif j=i thenbeginif max
Как вывести индекс массива в данной задаче? 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],' ' )end;writelnend;writeln ('');for i:=1 to 5 dobeginfor j:=1 to 10 dobeginif j=i thenbeginif max
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
=0 then max:=a[i,j];if a[i,j]>max then max:=a[i,j];s[j]:=max;writeln(j,'-',max);end;end;end;end.