program z1;
var a:array [1..6] of integer;
i,s:integer;
begin
s:=0;
randomize;
write ('Массив: ');
for i:= 1 to 6 do
begin
a[i]:=random(18);
write(a[i],' ');
s:=s+a[i]
end;
writeln;
writeln ('Сумма элементов массива: ',s);
writeln ('Среднее арифметическое элементов массива: ',s/6:0:1)
end.
Объяснение:
Цикл:
1) присваиваем значение текущему элементу массива
2) выводим текущий элемент массива на экран
3) считаем сумму элементов массива
Выводим сумму элементов массива на экран
Выводим среднее арифметическое элементов массива на экран (делим сумму на количество элементов), используя форматированный вывод (указываем после второго двоеточия количество знаков после запятой при выводе числа)
Письмо - 100 г
Посылка - 5 кг
Телеграмма - 50 г
Бандероль - 500 г
Дядя Фёдор получил:
Писем - 8 шт.
Посылок - 3 шт.
Телеграмм - 7 шт.
Бандеролей - 1 шт.
Кот Матроскин получил:
Писем - 3 шт.
Посылок - 1 шт.
Телеграмм - 3 шт.
Бандеролей - 1 шт.
Пёс Шарик получил:
Писем - 0 шт.
Посылок - 3 шт.
Телеграмм - 0 шт.
Бандеролей - 4 шт.
Вся почта, доставленная Печкиным одного вида (кол-во):
Писем - 8+3+0=11 шт.
Посылок - 3+1+3=7 шт.
Телеграмм - 7+3+0=10 шт.
Бандеролей - 1+1+4=6 шт.
Вся почта, доставленная Печкиным одного вида (вес):
Писем - 100*11=1100 г
Посылок - 5*7=35 кг
Телеграмм - 50*10=500 г
Бандеролей - 500*6=3000 г
