Вариант 11 Дядя Федор, кот Матроскин и пес Шарик летом жили в Простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Федор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и 1 бандероль. Пес Шарик не получил ни одного письма, ни одной телеграммы, зато получил 4 посылки и 2 бандероли.Построить электронную таблицу, из которой будет видно: сколько и какой почты получил каждый из трех жителей Про-стоквашино; сколько килограммов почты получил каждый из трех простоквашинпев; сколько весила вся доставленная Печкиным почта одного вида; какой общий груз пришлось перенести почтальону Печкину. смотри хls
Program Pas02; uses Crt; const n=20; var a:array[1..n] of real; i,k:integer; t:real; begin Randomize; ClrScr; Writeln('Массив случайных чисел'); k:=0; for i:=1 to n do begin a[i]:=Random(31)-15.0; Write(a[i]:6:1); if a[i]=10.0 then Inc(k) end; Writeln; Writeln('Количество элементов, равных 10: ',k); Write('Нулевые элементы '); k:=0; for i:=1 to n do if a[i]=0 then begin Inc(k); Write(i,' ') end; if k=0 then Writeln('отсутствуют') else Writeln; Writeln('Меняем местами элементы 3 и 6'); t:=a[3]; a[3]:=a[6]; a[6]:=t; for i:=1 to n do Write(a[i]:6:1); Writeln end.
Тестовое решение Массив случайных чисел 2.0 -12.0 8.0 -2.0 -1.0 3.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0 Количество элементов, равных 10: 1 Нулевые элементы 12 Меняем местами элементы 3 и 6 2.0 -12.0 3.0 -2.0 -1.0 8.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0
