Одномерный массив

[Pchelka]

Одномерный массив

Здравствуйте проверьте пожалуйста правильно ли решено задание, по теме одномерный массив
В массив A [ N ] занесены натуральные числа. Найти сумму тех элементов, которые, кратны данному K .

1. var i,n,k,c:integer;
2. a:array[1..100] of integer;
3. begin
4. readln;
5. for i:=1 to n do
6. read(a);
7. readln(k);
8. c:=0;
9. for i:=1 to n do
10. if (a mod k=0) then c:=c+a;
11. writeln(c);
12. readln;
13. end.
14.

 

[Vladimir_S]

В принципе - вроде всё правильно. Единственно - у Вас поставлен очень неудобный, "слепой" ввод данных. Поэтому я бы на свой вкус вместо
readln;
for i:=1 to n do
read(a);
readln(k);
сделал бы так:

write('n= ');
readln(n);
for i:=1 to n do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
write('k= ');
readln(k);

Но это - не принципиальное замечание.