Молодые авиамоделисты николай и алексей экспериментировали со взлетной массой своих моделек. из десяти самолетов, два не смогли взлететь. тщательные измерения масс показали, что из двух пар моделей, установленных на разные чаши маятниковых весов, перевесит та, на которой расположен самый тяжелый самолет из тех, что находятся на весах. найти минимальную массу самого загруженного самолета, который поднялся в воздух.
варианты ответа:

36

44

35

34

Type
    mas = array [1..50] of integer;
var
   x,y : mas;
   s1,k1,s2,k2 : integer;
   s,k : integer;
//Если вещественные, а не целые заменить на real(integer)

procedure ma (var x,y : mas);
  var
      i : integer;
  begin
    for i := 1 to 50 do
      begin
      x[i] := random(50);
      y[i]:=random(75);
       end;
   end;
procedure sk (var s,k : integer; a : mas);
  var
      i : integer;
   begin
    s := 0; k := 0;
    for i := 1 to 50 do 
     if a[i] > 0 then
      begin
       s := s + a[i];
       k := k +1;
      end;
   end;

 
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.

  

1)
 const     k = 15; 
  var 
     a : array [1..k] of integer; 
     s : real; 
      i : integer; 
begin 
 randomize; 
 s := 0; 
for i := 1 to k do       //Обработка массива чаще всего 
  begin                      //осуществляется в цикле
    a[i] := random(21);         //Формирование
    s := s + a[i];                      //Подсчет суммы элементов
end; 
 s := s / k;                              //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3); 
end.

3)  const     n = 5; 
       var 
           a : array [1..n] of integer; 
            i,k : integer; 
 begin 
k := 0;   
  for i := 1 to n do   
         begin     
  readln (a[i]);             //Считываем элемент
   if a[i] < 0 then          //Если элемент меньше нуля
     k := k +1;                  //счетчик +1
           end;
   writeln (k);
  end.