В массиве целых чисел...

[kobe.24]

В массиве целых чисел определить количество и суммы элементов кратных 10

[Leshii]

Program Mas;
Uses crt;
const n=10;
var A:array [1..n] of integer;
i:integer;
K,sum:real;
begin
clrscr;
k:=0;
sum:=0;
for i:=1 to n do
begin
 write('A[',i,']:=');
 read(a[i]);
end;
for i:=1 to n do
if A[i] mod 10 =0 then k:=k+a[i];
for i:=1 to n do
if a[i] mod 10 =0 then sum:=sum+1;
writeln;
writeln(K:2:0);
writeln;
writeln(suM:2:0);
readln;
end.

[Serge_Bliznykov]

Leshii, в целом - зачёт.
Но есть ряд мелких упущений...

1) зачем для подсчёта суммы и, главное, количества, элементов использовать вещественные переменные?!

2) обычно переменную с именем SUM используют для суммирования, а K - для подсчёта количества. В вашем случае - наоборот Это, конечно, так, даже не недочёт. просто забавно...

3) зачем ДВА цикла прохода по массиву с проверкой условия.
Это можно и НУЖНО делать за один проход:

for i:=1 to n do
  if A[i] mod 10 =0 then begin 
     sum:=sum + A[i];
     inc(k);
  end;

[Leshii]

Та я не столько для галочки)
Ну вот не дружу я с

Inc()

А вот с упрощением, себто с двумя условиями...(косяк) =)

Я вот сам только понял что вверх ногами писал.