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

Question

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

2. Подсчитайте количество элементов массива, удовлетворяющих условию:<20 и >50

3. Найдите сумму этих элементов.

Answer 1

Var M:array[0..100]of integer; a,b,c: integer; begin randomize; write('введите кол-во элементов' ); read(a); c:=0 for b:=1 to a do M[a]:=random(0,100); If M[a]<20 and M[a]>50 then c:=c+1 writeln('элементов, удовлетворяющих условию ', c); end. Вроде так)))

Answer 2

var a:array[1..10]of integer;

i,n:byte; s:integer;

begin

for i:=1 to 10 do a[i]:=random(101);

for i:=1 to 10 do write(a[i],' ');

for i:=1 to 10 do

if (a[i]<20) or (a[i]>50) then begin inc(n); s:=s+a[i]; end;

writeln(n,' ',s);

end.