МАССИВ...........1. Задайте случайным образом массив от 0 до 100, состоящий из

program zz1;
var mas:array[1..10] of integer;
i,k,s:integer;
begin
for i:=1 to 10 do
mas[i]:=random(101); //наполняем массив десятью рандомными числами из обозначенного спектра
for i:=1 to 10 do
write(mas[i], ); //выводим массив на экран
writeln; //перебегаем на новейшую строчку для вывода
for i:=1 to 10 do
if (mas[i]lt;20)or(mas[i]gt;50) then begin k:=k+1;s:=s+mas[i];end; //проверяем условие, считаем количество и сумму
writeln(количество частей меньше 20 и больше 50 - ,k); //выводим ответы
write(сумма элементов меньше 20 и больше 50 - ,s);
end.