S, a - должны быть целочисленными, а не вещественными.
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>