Регистрация
meizum2luba
01.09.2022 20:49
Информатика
Есть ответ 👍

решите это Правда это решит мою итоговую оценку

109
173
Посмотреть ответы 1

Ответы на вопрос:

Каринакарина111
Каринакарина111
4,7(50 оценок)

const n = 10; //кол-во элементов в массиве

var i, sum, proiz: longint;  

a: array [1..n] of longint;

begin

sum: =0;

proiz: =1;

  for i : = 1 to n do  

begin

      a[i] : = random(10)+1; //заполнение массива     

write(a[i], ' '); //вывод

  end;  

writeln;  

for i : = 1 to n do  

begin      

sum : = sum + a[i]; //сумма

      proiz : = proiz * a[i]; //произведение 

end;  

writeln('сумма ',sum);  

writeln('произведение ',proiz);

end.

Популярно: Информатика