Написать программу (pascal) заполнить массив заданной длины различными простыми числами начиная с 2. натуральное число, большее единицы, называется простым, если оно делится только на себя и на единицу.

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var   a: array of integer;   i, n, m: integer; function simple(x: integer): boolean; var   i: integer; begin   simple : = false;   if x < 2 then exit;   if x mod 2 = 0 then exit;   i : = 3;   while i < = sqrt(x) do   begin       if x mod i = 0 then exit;       i +=2;   end;   simple : = true; end; begin   write('количество элементов массива : '); readln(m);   setlength(a, m);   while n < = m - 1 do   begin       if simple(i) then begin           a[n] : = i;           n +=1;       end;       i +=1;   end; a.println;   end. тестовое решение: количество элементов массива : 25 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

сред. арифметическое = сумма всех чисел разделить на количество

 

(a1 + a2 + a3 + a4 + a5) / 5

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.