Const n = 1; m = 1020;
var
b: array [1..n, 1..m] of real;
i, j, c: integer;
begin
randomize;
for i := 1 to n do
for j := 1 to m do
b[i, j] := Random(1001) - 500;
for i := 1 to n do
for j := 1 to m do begin
b[i, j] := (Sign(b[i, j]) + 1) shr 1;
c := c + Trunc(b[i, j]);
end;
writeln(c, ' единиц.');
<span>end.</span>
Program Fanisca;
uses crt;
var
n,temp,i,max: integer;
begin
write('Введите число N=');
readln(n);
max:=0;
i:=1;
writeln('*** alphaues is thinking... ***');
while i<=n do
begin
write('Введите ',i,'-е число ');
readln(temp);
if (max<temp) and (temp mod 5 = 0) then max:=temp;
i:=i+1;
end;
writeln('Максимальное число, кратное 5, равно ',max);
end.
I:integer;
begin
For i:=100 to 200 do
If i mod 3=0 then
Write(i,' ');
end;