Пожалуйста помогите, очень нужно. Сформировать одномерный массив G из 10 элементов, где элементы массива G[i] - целые случайные числа в пределах [5; 40]. Найти количество элементов кратных 7 и вывести эти элементы массива.
Пожалуйста помогите, очень нужно.
Сформировать одномерный массив G из 10 элементов, где элементы массива G[i] - целые случайные числа в пределах [5; 40]. Найти количество элементов кратных 7 и вывести эти элементы массива.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы