задачи на последовательность

Ответ от Unknown[гуру]
" оканчивающаяся 0" не понял.. .
=======================
ща подумаю.. . я тока начинающий если честно...

Ответ от Ёергей Куксенков[гуру]
uses crt;
var a:integer;
s:real;
k:integer;
i:byte;
begin
clrscr;
for i:=1 to 10 do
begin
a:=random(100)+1;
if (a mod 3 =0) and (a<>0)then
begin
s:=s+a;
k:=k+1;
end;
writeln(a);
end;
s:=s/k;
writeln (0);
writeln(s:8:2);
end.

Ответ от Urunov Jafar[гуру]
в отдельный массив сохраняем только те числа которые при делении на 3 остаток ноль остается, учитывая то что если само число ноль, то не сохранять число ноль в массив, потом сумма этих чисел деленная на количество этих чисел. Все это можно делать и без массива тоже. При этом создавая счетчик внутри цикла, чтобы подсчитать таких чисел при удовлетворение условии и в цикле должно быть суммирование этих чисел. Выходя из цикла можно делить эти переменные, вот и выйдет ср. ариф.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]