Напишите на ^ паскале программу, которая запрашивает с клавиатуры массив из n чисел, а затем выводит среднее арифметическое всех элементов массива.

 

program sred;   var

        n, i, sum : integer;

      mas: array[1..20] of integer;   af: real;   begin

          sum : = 0;

          n : = 20;           writeln('введите элементы массива');

          for i: =1 to n do       begin               readln(mas[i]);           sum : = sum + mas[i];       end;       af : = sum/n;       writeln (af); end.

орфографию проверь

var n,i,z,l: integer;

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

for i: =1 to n do 

begin

readln(a[i]);

l: =l+a[i];

end;

z: =l/n;

writeln(z);

end.

 

A: array[1..40] of string; b: array[1..40] of integer; {буду считать что информация по безработице-число} i, n, j, m: integer; begin for i: =1 to 40 do readln(a[i]); readln(b[i]); for i: =1 to 40 do for j: =1 to 40 do if b[i]> b[j] then begin n: =a[i]; a[i]: =a[j]; a[j]: =n; m: =b[i]; b[i]: =b[j]; b[j]: =m; end; writeln('неблагополучные регионы: '); for i: =1 to 3 do writeln(a[i],' ',b[i]); writeln('благополучные регионы: '); for i: =40 downto 38 do writeln(a[i],' ',b[i]); readln; end.

Program name; //имя программы uses crt; //запуск программы в консольном режиме необязательно var      a : integer;   b : integer;   i : integer;   c : integer; begin //начало программы  write('введите 1 число: ');   readln(a); //ввод значения первого числа  c : = b-a-1;   write('введите 2 число: ');   readln(b); //ввод значения второго числа  writeln(a, ' ' , b); //вывод двух чисел   writeln(a, ' ' ,a*a,' ' , a*a*a); // вывод 1 числа, квадрата, куба  for i : = 1 to b-a-1 do    begin    a : = a + 1;     writeln(a, ' ',a*a, ' ', a*a*a); // вывод всех чисел от a до b  end;               writeln(b, ' ' ,b*b,' ' , b*b*b); // вывод 2 числа, квадрата, куба  readkey;     end. //конец программы