Паскаль АВС.net програму !!массивы !!!Введите с клавиатуры пять целочисленных элементов...

Question

Паскаль АВС.net програму !!
массивы !!!
Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения квадратов каждого из элементов массива.

Answer 1

Const
   N = 5;
Var
   X:array[1..N] of integer;
   i:integer;
Begin
Write('Введите массив X(',N,'): ');
For i:= 1 to N do
    Read(X[i]);
WriteLn('Значения квадратов каждого из элементов:');
For i:= 1 to N do
    Write(' ',X[i]*X[i]);
End.

Answer 2

PascalABC.NET 3.2:
begin
  ReadArrInteger(5).Select(x->x*x).Println
end.

Пример ввода:
1 -2 3 -4 5

Пример вывода:
1 4 9 16 25

Comments

Боюсь ,что с лямбда выражениями учитель не оценит :D

---

ну , выкрутиться можно