Глобальный-мировой, оч важный
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>