Скласти програму обчислення середнього арифметичного додатних чисел масиву c, який складається з 8 цілих чисел.

Відповідь:

program Pr1;

var

 a: array[1..10] of integer;

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові