69

ПАСКАЛЬ найти сумму и произведение элементов массива…

mityaj 11 марта 2023

ПАСКАЛЬ найти сумму и произведение элементов массива, элементы заданы с клавиатуры, размер произвольный

категория: информатика

40

Var a: array [0… 5] of integer; i, m, s: integer; begin m: =1; for i: =0 to 5 do begin readln (a[i]); s: =s+a[i]; m: =m*a[i]; end; writeln (s, ', m); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...