Нужно полное решение!
Var k, score: integer;
A: array[1..9] of integer;
Begin
A[1]:=6;A[2]:=11;
A[3]:=7;A[4]:=12;
A[5]:=13;A[6]:=5;
A[7]:=9;A[8]:=3;
A[9]:=4;
score := 0;
for k := 1 to 9 do
if A[k] >= 9 then
begin
score := score + A[k];
end;
writeln(score);
End.
даю
const
max = 42;
var
vt:array[1..max]of integer;
i,n:byte;
x:integer;
num:integer;
BEGIN
n := max;
writeln('Массив из n элементов будет задан случайными числами на интервале [0..20].');
readln(n);
writeln('Подсчитать количество положительных элементов больших чем указанное число.');
writeln('Введите число: '); readln(x);
writeln(' ');
writeln('Начальный Массив' );
randomize;
num := 0;
for i:=1 to n do begin
vt[i]:=random(-512,512);
write(vt[i], ' ');
if (vt[i]>0) then
num:=num+1;
end;
writeln(' ');
writeln('Найдено ', num,' положительных элементов больших чем ', x);
END.