Дан массив x(n,m) и число z. Определить, сколько раз среди элементов четных строк массива встречается число z с заданным значением.
Answers & Comments
Рузкый
Program p1; uses crt; const N = 5; M = 3; var x:array [1..N,1..M] of integer; j,i,z,k:integer; begin read(z); for i:=1 to N do begin For j:=1 to M do begin x[i,j]:= random (5)-2; write(x[i,j]:4); end; writeln; end;
For i:=1 to N do begin K:=0; For j:=1 to M do begin If (x[i,j]>=0) and (x[i,j] = z)then K:= K+1; end; writeln('Кол-во повторений =',k,' в ',i,' строке'); end; end.
Answers & Comments
uses crt;
const N = 5;
M = 3;
var x:array [1..N,1..M] of integer;
j,i,z,k:integer;
begin
read(z);
for i:=1 to N do begin
For j:=1 to M do begin
x[i,j]:= random (5)-2;
write(x[i,j]:4);
end;
writeln;
end;
For i:=1 to N do begin
K:=0;
For j:=1 to M do begin
If (x[i,j]>=0) and (x[i,j] = z)then
K:= K+1;
end;
writeln('Кол-во повторений =',k,' в ',i,' строке');
end;
end.