Дан массив B, в котором содержится 10 частей целого типа. Найти:

Дан массив B, в котором содержится 10 частей целого типа. Отыскать: А) сумму частей этого массива Б)творение частей этого массива В) Среднее арифметическое этого массива Нужен алгоритм паскаль К примеру: Program Summa; Var B:array (1..10) of integer; и т.д.

Задать свой вопрос
1 ответ

Program summa;

var

sum,pr,k,i: integer;

A: array[1..10] of integer;

begin

sum:=0;

pr:=1;

k:=0;

for i:=1 to 10 do

begin

sum:=sum+A[i];

pr:=pr*A[i];

k:=k+1;

end;

writeln(сумма членов =,sum,; творение =,pr,; среднее арифметическое =,pr/k);

end.

 

, оставишь ответ?
Имя:*
E-Mail:


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

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт