Question

Пожалуйста помогите, очень нужно.
Сформировать одномерный массив G из 10 элементов, где элементы массива G[i] - целые случайные числа в пределах [5; 40]. Найти количество элементов кратных 7 и вывести эти элементы массива.

Answer 1

Program dasf;
var z,b,i: integer;   
A: Array[1..100] of integer;    
begin
b:=0;
For i:=1 to 100 do 
 begin 
  z:=random(36)+5;   
 A[i]:=z; 
  If z div 7=0 then b:=b+z;   
 Writeln(A[i]); 
 end;
Writeln('Сумма всех чисел массива, кратных 7: ',b);
end.