Вывести таблицу квадратов чётных чисел от 1 до 19. условный оператор не использовать! сделайте через цикл

Четные 2,4,6,8,10,12,14,16,18

Var A: arrey[1..19,1..2] of integer; Var x, i: integer; Begin For i:=1 to 19 do begin A[i,1]:=i; A[i,2]:=i*i; Writeln (A[i,1]:4, A[i,2]:4) End End. Или если без массива, то так: Const n=12; Var x,y: integer; Begin For x:=1 to n do begin y:=x*x; Writeln (x:4,y:4) End End.

<-------------------------1------------------------->

#include <iostream>

#define _USE_MATH_DEFINES

#include <math.h>

using namespace std;

int main()

{

  setlocale(LC_ALL, "RU");

  double  PI = M_PI;

  double r, R;

  cin >> r >> R;// сначала вводится внутренний радиус

  cout <<"S= "<<PI*(R*R-r*r)<<"= PI*"<< (R * R - r * r);

  return 0;

}

<-------------------------2------------------------->

#include <iostream>

using namespace std;

int main()

{

  setlocale(LC_ALL, "RU");

  double x, y;

  cin >> x >> y;//

  if (y==(5*x*x-7*x+2))

   cout << "ДА";

  else

   cout << "НЕТ";

  return 0;

}

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

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

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41