Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3
Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3
Гость
Ответ(ы) на вопрос:
ГостьProgram asd;
USES crt;
Const n=5;
var A:array[1..n] of integer;
var p,s:real; i:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(100)+1;
Write(A[i]:4);
end;
P:=1;
For i:=1 to n do
begin
If A[i] mod 3=0 then
begin
S:=S+A[i];
P:=P*A[i];
end;
end;
Writeln;
Writeln('Сумма матрицы: ',s,' Произведение матрицы: ',p);
END.
Не нашли ответ?
Похожие вопросы