Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
matriza
var a:array[1..8,1..5] of integer; i,j,max,min,str,smax,s,k,n:integer; begin randomize; for i:=1 to 8 do for j:=1 to 5 do a[i][j]:=random(20)-10; writeln(); min := a[1][1]; max := a[1][1]; str := 1; smax:=0; for k:=1 to 5 do begin smax:=smax+a[1][k]; end; s:=0; for i:=1 to 8 do begin for j:=1 to 5 do begin write(a[i][j],' '); s:=s+a[i][j]; if a[i][j]>max then max:=a[i][j]; if a[i][j]<min then min:=a[i][j]; end; if s>smax then begin smax:=s; str:=i; end; writeln(); end; writeln('Максимальный элемент ', max); writeln('Минимальный ', min); write('Строка ', str,': '); for n:=1 to 5 do write(a[str][n], ' '); end.
run
|
edit
|
history
|
help
0
test14
kk
matrix - changing upper diagonal elements
BubbleSort (standaard)
Урок 4 задача 4: решить в целых числах уравнение ax=b
task 3
Bilangan fibonacci ke-1 sampai ke-n
Lunohod-2
Zadanie 3 б
zadacha8