Program aaa; var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte; begin randomize; writeln ('Введите N, K, R, C'); readln (n,k,c,r); x:=0; for i:=1 to n do begin for j:=1 to n do begin writeln ('Введите ',j,'-е число ',i,'-ой строки'); readln (A[i,j]); //или можно ввести рандомно: A[i,j]:=random(0,1); if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1)) then x:=x+1 end end; writeln; // в следующем цикле выводится весь массив для наглядности // его можно просто убрать если не нужен for i:=1 to n do begin for j:=1 to n do begin write (A[i,j]:3); end; writeln end; writeln; writeln (x) end.
Const Sz = 1000; var a: array [1..Sz] of integer; b: array [1..Sz] of integer; c: array [1..Sz] of integer; d: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for i:=1 to N do begin read(a[i]); readln(b[i]); if (a[i]<>0) then c[i]:=1 else c[i]:=0; end; for i:=1 to N do begin if(c[i]<>0) then begin for k:=1 to i do begin if(d[k]=0) then d[i]:=1; if (c[k]=i) then d[k]:=0; end; writeln(d[i]) end;end;end.
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin
randomize;
writeln ('Введите N, K, R, C');
readln (n,k,c,r);
x:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln ('Введите ',j,'-е число ',i,'-ой строки');
readln (A[i,j]);
//или можно ввести рандомно: A[i,j]:=random(0,1);
if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
then x:=x+1
end
end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
for i:=1 to n do begin
for j:=1 to n do begin
write (A[i,j]:3);
end;
writeln
end;
writeln;
writeln (x)
end.