Question

Написать программу: 1) сформировать массив из 18 целых случайных чисел из [-35;35], вывести исходный массив в строку; 2) найти среднее арифметическое всех четных элементов массива; 3) найти сумму неотрицательных элементов; 4) заменить числом 5 элементы, стоящие на четных местах, и числом 0 - элементы, стоящие на нечетных местах, вывести в строку получившийся массив.

Answer 1

program t1;
const
  j = 18
var
  n,j, i, s,s1: integer;
  mas: array [1..j] of integer;
begin
    randomize;
    writeln ('сгенерированный масив: ');
    for i := 1 to j do
    begin
      mas[i] := random (70) - 35;
      write (mas[i]);
    end;
   
    s:= 0; s1:=0;
    for i := 1 to j do
    begin
      if (i mod 2 =0) then s := s+mas[i];              //сумма четных элементов
      if (mas[i] >= 0) then s1 := s1 + mas[i];       //сумма неотрицательных элементов
    end;  
    writeln ('среднее арифметическое четных элементов:  ', s/18);
    writeln ('сумма неотрицательных элементов:  ', s1);
    writeln ('массив после замены элементов:  ');    
    for i := 1 to j do
    begin  
       if (i mod 2 =0) then mas[i] := 5 else mas[i] := 0;
      write (mas[i]); 
    end;       
end;
end.