For i:= 1 to n do
begin
mas [ i ] := random(100);
if mas [ i ] < 50 then begin
sum1:= sum1 + mas [ i ] ;
inc(count1);
end
else begin
sum2:= sum2 + mas [ i ] ;
inc(count2);
end;
if coun1 >0 then writeln('result1 = ',sum1/count1);
if coun2 >0 then writeln('result2 = ',sum2/count2);
for i:= 1 to n do
if mas [ i ] = x then writeln(A[', i,'] );
end;
Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
10. Так как все остальные числа простые, а это составное
В паскале абц есть встроенная справка: помощь->справка->стандартные модули->graphabc, вроде так, там описаны все процедуры с функциями для работы с графикой, более чем исчерпывающая информация
с помощью диаграм эйлера узнаем объединение сыра ветчины и колбасы и вычитаем из общего числа