Не могли бы проверить,в чем ошибка программы (паскаль,массивы,задача 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.
Другие вопросы по: компьютеры и интернет
Знаешь правильный ответ?
Не могли бы проверить,в чем ошибка программы (паскаль,массивы,задача 9кл.)?...
Популярные вопросы