Письмо - 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 г
program a1;
const n=20;
var c:array [1..100] of integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do begin
c[i]:=random(101)-50; {заполнение массива произвольно от -50 до 50}
write(' ',c[i]); {вывод массива на экран}
end;
for i:=2 to n do
if c[i]<c[i-1] then k:=k+1; {сравнение элемента с предыдущим и счет элементов которые меньше}
writeln;
writeln('Количество элементов=',k);
end.