codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
var A: array [ 1 .. 5, 1 .. 10 ] of integer; i, j, count, index, max: integer; begin randomize; for i:=1 to 5 do begin for j:=1 to 10 do begin A[i,j]:=random(3); end; end; for i:=1 to 5 do begin for j:=1 to 10 do begin write(A[i,j],' '); end; writeln; end; index:=1;max:=0; for i:=1 to 5 do begin count:=0; for j:=1 to 10 do if A[i,j] = 0 then inc(count); if count > max then begin max:=count; index:=i; end; writeln(count); end; writeln('максимальное кол-во нулей:',max); writeln('номер строки:',index); end.
Private
[
?
]
Run code
Submit