program n1;
var
x,y,i:integer;
A= array [1..5, 1..10] of <тип элементов>;
begin
for x:= 0 to 5 then
begin
for y:= 0 to 5 then
begin
if A[x][y] >= 0
then
i= i+1;
end;
end;
writeln('Кол-во положительных: ',i)
end.
Одна тонкость - разность первых 2-ух чисел это из первого вычитаем второе или из второго первое?
Program Chisla;
Uses Crt;
var a,b,c,d,sum:real;
begin
clrscr;
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвёртое число: ');
readln(d);
sum:=a+b+c+d;
if ((a-b)>d) and (sum<=80) then writeln(c,d)
else
if (a-b)>d then writeln(a,b,c,d)
else
if (sum<=80) then writeln(a,b)
else writeln(a+5,b+5,c+5,d+5);
readkey;
end.
Program Zn;
Var i,j,c:integer;
m: array [1..6, 1..6] of byte
Begin
For i:=1 to 5 then begin
For j:= 0 to 5 then
If A[i,j] >= 0 then inc(c)
End;
Writeln('Количество положительных эллементов: ',с)
End.