Помогите составить программу в Паскале ABC с помощью repeat.

Question

Дано n-чисел. Найти среднее арифметическое чисел, которые кратны 3 и оканчиваются или на 5,или на 7.

Елена Коленько · Accepted Answer

var 
 n, v, d: integer; 
 s: real; 
begin 
 write('количество чисел? '); 
 readln(n); 
 writeln('числа? '); 
 repeat 
 write(': '); 
 readln(v); 
 if (v mod 3 = 0) and ((v mod 10 = 5) or (v mod 10 = 7)) then 
 begin 
 s := s + v; 
 inc(d); 
 end; 
 dec(n); 
 until n = 0; 
 if d <> 0 then writeln('среднее: ', s / d:0:2); 
end.

Ольга Свистунова · Answer

Помочь это в смысле составить за вас? Вы не можете открыть учебник и написать простейший цикл?