Подсчитать количество элементов матриц Х(10, 15) и Y(20, 12), удовлетворяющих условиям 0 0)
then Yes := true;
else Yes := false;
end;
begin
Randomize;
For i := 1 to 10 do begin
for j := 1 to 15 do begin
x[i,j] := random(100) - 50;
write(x[i,j]:5);
if Yes(x[i,j])
then kx := kx + 1;
end;
writeln;
end;
Writeln('В данном массиве ',kx,' чисел, удовлетворяющих условию');
readln;
For i := 1 to 20 do begin
for j := 1 to 12 do begin
y[i,j] := random(100) - 50;
write(y[i,j]:5);
if Yes(y[i,j])
then ky := ky + 1;
end;
writeln;
end;
Writeln('В данном массиве ',ky,' чисел, удовлетворяющих условию');
readln;
end.