1. найти произведение положительных элементов массива a(16), удовлетворяющих условию: с< =ai< = d.

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

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

uses graphabc;

 

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

 

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

var

 ball: array [1..30] of integer;

 s: string;

 n, i, sum,count: integer;

 sred: real;

begin

 count:=0;

 Writeln('Введите колличество учащихся: ');

 readln(n);

 Writeln('Введите оценки: ');

 for i := 1 to n do

   Read(ball[i]);

 for i := 1 to n do

   if ball[i] > 2 then

   begin

     sum += ball[i];

     Inc(count);

   end;

 sred := sum / count;

 Writeln('Учеников сдавших экзамен: ', count);

 Writeln('Учеников не сдавгих экзамен: ', n-count);

 Writeln('Средняя оценка сдавших: ', sred:6:2);

end.