створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 10, а кожне наступне більше від попереднього на задане додатне число. ( язык

// PascalABC.NET 3.0, сборка 1073
const
  nn=30;
  mm=30;
var
  a:array[1..mm,1..nn] of integer;
  m,n,i,j,k,s:integer;
begin
  Writeln('Введите число строк и столбцов массива: '); Read(m,n);
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if Odd(a[i,j]) then Inc(k)
    end;
    Writeln
  end;
  if k>5 then begin
    Writeln('Средние арифметические отрицательных элементов по строкам');
    for i:=1 to m do begin
      s:=0; k:=0;
      for j:=1 to n do
        if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
      if k>0 then Writeln(s/k:9:5) else Writeln('  0.00000');
    end
  end
  else begin
    Writeln('*** Результирующий массив ***');
    for i:=1 to m do begin
      for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
    Writeln
    end
  end
end.

Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
 -16  -8  -1  24 -22   1
  -9 -20 -25  13 -11  10
 -15  10 -12  20 -22   3
  -6  25  -3  25 -14  22
  24  -4  24  17  -4 -17
 -23  -9 -22   1 -18 -13
 -12  13   6 -16   2 -13
  19   8 -22  14  -3   4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
 -7.66667
 -8.33333
-17.00000
-13.66667
-12.50000

Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
   3  24 -21 -22  -8
 -21  14 -22   0 -22
  15 -16  -2   6  22
*** Результирующий массив ***
   6  48 -42 -44 -16
 -42  28 -44   0 -44
  30 -32  -4  12  44

4004

1972, 4-й квартал: 4040

1972, 1 апреля: 8008

1974, 1 апреля: 8080

1976, март: 8085

1978, 8 июня: 8086

1979, 1 июня: 8088

1981, 1 января: iAPX 432

1982, 80186, 80188

1982, 1 февраля: 80286

1985, 17 октября: 80386DX

1988, 5 апреля: i960 aka 80960

1988, 16 июня: 80386SX

1989, 16 января: 80376[источник не указан 86 дней]

1989, 27 февраля: i860 aka 80860

1989, 10 апреля: 80486DX

1990, 15 октября: 80386SL

1991, 22 апреля: 80486SX

1992, 3 марта: 80486DX2

1992, 9 ноября: 80486SL

1993, 22 марта: Pentium

1994, 7 марта: 80486DX4

1994, август: Intel386 EX

1995, 1 ноября: Pentium Pro

1997, 8 января: Pentium MMX

1997, 7 мая: Pentium II

1998, 15 апреля: Celeron (Pentium II-based)

1998, 29 июня: Pentium II Xeon

1999, 26 февраля: Pentium III

1999, 25 октября: Pentium III Xeon

2000, 23 августа: XScale

2000, 20 ноября: Pentium 4

2001: Itanium

2001, 21 мая: Xeon

2002, июль: Itanium 2

2003, март: Pentium M

2003, март: Celeron M

2003, сентябрь: Pentium 4EE

2004, весна: EM64T

2005, 2 квартал: Pentium D

2006: Pentium Dual-Core

2006, 27 июля: Core 2 Duo

2006, осень: Core 2 Extreme

2007, январь: Core 2 Quad

2008, 1 квартал: Core 2 обновление линейки

2008, 2 квартал: Centrino Atom

2008, 3 квартал: Core i7

2009, 4 квартал: Core i5

2010, 1 квартал: Core i3

2011, 2 квартал: Celeron/Pentium Sandy Bridge (2-е поколение)

2011, 3 квартал: Сore i3, i5, i7, i7 — Extreme Edition Sandy Bridge

2012, 1 квартал: 22 нм, Core i3, i5, i7 — Ivy Bridge

2013, 2 квартал: 22 нм, Core i3, i5, i7 — Haswell

2014, 3 квартал: 14 нм, Core M, i3, i5, i7 — Broadwell

2015, 3 квартал: 14 нм, Core M, i3, i5, i7 — Skylake

2017, 1 квартал: 14 нм, Celeron, Pentium G, Core i3, i5, i7 — Kaby Lake (7-е поколение)

2017, 3 квартал: 14 нм, Core i9 — Skylake

2017, 4 квартал: 14 нм, Core i3, i5, i7 — Coffee Lake, i9 Skylake.

2018, конец: 14 нм — Cooper Lake[3]

2018, 4 квартал: 14 нм — i3, i5, i7, i9 Coffee Lake Refresh (8-е поколение)

2018, конец: 10 нм — Cannon Lake

2019, 3 квартал: 14 нм - Comet Lake

2020, конец: 10 нм — Ice Lake (10-е поколение)

2021: 10 нм — Tiger Lake (11-е поколение)