Безотлагательно!!!35 балловнапишите программку которая вводит с клавиатуры 10 чисел и вычисляет

Const n=10;
var
a:array[1..n] of integer;
i,sum,pr:integer;
begin
  pr:=1;
  for i:=1 to n do
  begin
read(a[i]);
  sum+=a[i];
  pr*=a[i];
end;
write('произведение одинаково:',pr,' сумма одинакова:', sum);
end.

Сергей Прудиус · Answer 2 · 2019-09-12 16:28:18+3:00

Сергей Прудиус 2019-09-12 16:28:18

Var:a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,b1,b2:integer;
begin
readln(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10);
b1:=a1+a2+a3+a4+a5+a6+a7+a8+a9+a10;
writeln(b1);
b2:=a1*a2*a3*a4*a5*a6*a7*a8*a9*a10;
write(b2);
end.

Евгений Шабальцев 2019-09-12 16:32:04

А если с циклом как бы смотрелось 'тело цикла'?

Tille Varvara 2019-09-12 16:33:51

А надобно было писать в задании, что нужен цикл, массив и т.п. А на данный момент Вам написали формально совершенно верное решение.

Максимка Бажинский 2019-09-12 16:38:56

Ну если ты знаешь добавь ещё 1 ответ и качестве заслуги отмечу как лучший

Сережа Капленков 2019-09-12 16:48:41

Во-первых, оставьте эту неразумную повадку "тыкать" незнакомым людям. А во-вторых, не надобно мне указывать, чем заниматься.

Галина 2019-09-12 16:49:44

ты сам начал этот наезд

Егор Шванштейн 2019-09-12 16:51:53

Разъяснение Вам Управлял Сервиса Вы считаете наездом? Ваше право. Ответ не нужно.

Полина 2019-09-12 16:59:08

Вообще к Вам всего лишь обратились на "ты", ложно приняв за школьника(а таковых большинство). Я не вижу в этом ничего необыкновенного.

О проекте

Безотлагательно!!!35 балловнапишите программку которая вводит с клавиатуры 10 чисел и вычисляет

Добро пожаловать!