МАССИВ...........1. Задайте случайным образом массив от 0 до 100, состоящий из 10 элементов.
2. Подсчитайте количество элементов массива, удовлетворяющих условию:<20 и >50
3. Найдите сумму этих элементов.
VarM:array[0..100]of integer;a,b,c: integer;beginrandomize;write(введите кол-во элементов );read(a);c:=0for b:=1 to a doM[a]:=random(0,100);If M[a]<20 and M[a]>50 then c:=c+1writeln(элементов, удовлетворяющих условию , c);end.Вроде так)))
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
