Program z1;beginvar a,d,n,i:integer;var s:real;write('Сколько всего чисел будет');read (n);writeln('Вводите числа');for i:=1 to n dobeginread(d);a:=a+d;end;s:=a/n;write ('Среднее арифметическое=',s);end. Пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.
//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.
Пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.