Написать программу для pascal abc на вычисление среднего за год. с клавиатуры вводится 4 числа.

Var a,b,c,d: integer; begin   writeln('введите первое число');   readln(a);   writeln('введите второе число');   readln(b);   writeln('введите третье число');   readln(c);   writeln('введите четвертое число');   readln(d);   writeln('среднее четырех чисел = ',(a+b+c+d)/4) end.

program n1;

uses crt;

var n,s,c: real;

begin

 

      clrscr;

      write('введите числа. конец ввода 0: ');    

 

      n: =1; s: =0; c: =0;

      while (n< > 0) do

          begin

              readln(n);                

if (n=0) then break;  

  if (n> 0)   then 

          begin  

                s: =s+n;

                c: =c+1;

          end;  

          end;    

 

    writeln('сумма чисел: ',s);

    writeln('среднее арифметическое: ',s/c);    

 

      readkey;

 

  end.

 

 

program n2;

uses crt;

var n,s,c: real;

begin

      clrscr;

      write('введите числа. конец ввода 0: ');    

      s: =0; c: =0;

 

      repeat

          readln(n);

          if (n=0) then break;

            if (n> 0)   then

              begin  

                    s: =s+n;

                    c: =c+1;  

                end;

          until (c=0);  

 

    writeln('сумма чисел: ',s);

    writeln('среднее арифметическое: ',s/c);    

      readkey;

  end.

 

 

 

 

   

 

 

 

program massiv;

uses crt;

const n=10; // n - которое мы задали 

 

  var array[1..n] of integer;

var i: integer;

begin

      clrscr;

      write('размер массива: ',n,'исходный массив: ');

      for i: =1 to n do

            begin

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

                  write(a[i],' ');  

 

            end;      

 

      writeln;  

      write('чётные элементы массива: ');  

 

        for i: =1 to n do if (a[i] mod 2)=0 then write(a[i],'   ');      

 

    readkey;

 

end.