Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.
Купи полу игровой и для учёбы места на 3 ГБ
Var x:array[1..10] of integer;
i,n,s:integer;
begin s:=0;
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if x[i] mod2=1 then s:=s+x[i];
writeln('s=,s);
readln;
readln
end.
Думаю так будет.
If a div 10 ???? нет условия. нужно
if (a div 10)mod 10 <> 0 then....