составить программу вычисления суммы чётных чисел и произведение ...
составить программу вычисления суммы чётных чисел и произведение нечётных чисел от 1 до 10. (через паскаль)
Есть ответ
18.12.2022
118
Ответ
Паскаль.
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
if (a[i]=1) then proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Жирным - это то, что я добавил)
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022