паскаль.
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]< =10) and (a[i]> =1) then proizv: =proizv*a[i];
end;
writeln(summa,' ',proizv); readln;
end.
жирным - это то, что я добавил)
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу вычисления суммы чётных чисел и произведение нечётных чисел от 1 до 10. (через паскаль)
не особо. его произведения конечно игрались в салонах, но большую популярность он обрёл после своей смерти