Program dataArray;const N=10;type x=array [1..N] of integer;var a:x; i:integer; max:integer; imax:integer;begin randomize; for i:=1 to N do begin a[i]:= -50+random(101); write (A[i]:5) end; writeln; imax:=1; max:=A[1]; for i:=2 to N do if max<a[i] then begin max:=a[i]; imax:=i end; writeln ('Максимальный элемент в массиве(матрице) =',max:5); writeln ('Его индекс в матрице =',imax:5);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
