Question

Не могли бы проверить,в чем ошибка программы (паскаль,массивы,задача 9кл.)?

Дан массив из 15 символов. Написать программу нахождения суммы и количества элементов, оканчивающихся цифрой 5.

uses crt;

var a:array [1..15] of integer;

i,k,s:integer;

begin

randomize;

for i:=1 to 15 do

begin

a[i]:=random (21) -10;

writeln (a[i]:4);

end;

writeln;

s:=0;

k:=0;

for i:=1 to 15 do

if abs(a[i]) mod 10=5 then begin

k:=k+1;

s:=s+a[i];

end;

writeln('k=',k);

writeln('s=',s);

end.

Answer 1

А что собственно не так? Добавил "program", убрал "uses" - вроде правильно всё работает...

<hr />

program ideone;

var a:array [1..15] of integer;

i,k,s:integer;

begin

randomize;

for i:=1 to 15 do

begin

a[i]:=random (21) -10;

writeln (a[i]:4);

end;

writeln;

s:=0;

k:=0;

for i:=1 to 15 do

if abs(a[i]) mod 10=5 then begin

k:=k+1;

s:=s+a[i];

end;

writeln('k=',k);

writeln('s=',s);

end.

Answer 2

Сложно ошибиться в написании такой программы. Разве что пара замечаний:

1) Зачем crt, если он не используется.

2) Лучше использовать стандартный заголовок program.

3) Зачем при выводе массива в начале указан отступ, если числа и так выводятся построчно?