Задайте случайным образом массив от 0 до 100, состоящий из 10 элементов. 2. подсчитайте количество элементов массива, удовлетворяющих условию: < 20 и > 50 3. найдите сумму этих элементов.
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. Вроде так)))
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.