помогите сделать через паскаль!!!

Question

[ссылка заблокирована по решению администрации проекта]

желательно уже написанную, потому что я в этом не разбираюсь!!

Александр Кирюхин · Accepted Answer

for i := 1 to 20 do begin t = a[ i ]; if (t mod 2 = 0) then inc( chet ); else writeln( t ); if (t > 0) them m := m * t; if (t mod 7 = 0) then inc( chet_7 ); end;

Светлана Мосина · Answer

1) Создаешь массив целых чисел, размером от 1 до 20 элементов и переменные k, p, s 
2) После Бегин Включаешь Randomize 
3) Пишешь цикл for i:= 1 to 20 do x := random (Максимальное число - Минимальное число + 1) + Минимальное число; 
4) Обнуляешь переменные k, s. И p присваиваешь 1 
5) Бежишь с 1 до 20 ищешь: если название массива [] mod 2 = 0 then s:= s+ элемент, иначе выводишь элемент. 
 Если элемент массива > 0 то p:= p * элемент 
 Если элемент mod 7 то k:=k+1 
6) Выводишь k,p,s