Паскаль АВС.net програму !!
массивы !!!
Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения квадратов каждого из элементов массива.
Ответы
Ответ дал:
0
PascalABC.NET 3.2:
begin
ReadArrInteger(5).Select(x->x*x).Println
end.
Пример ввода:
1 -2 3 -4 5
Пример вывода:
1 4 9 16 25
begin
ReadArrInteger(5).Select(x->x*x).Println
end.
Пример ввода:
1 -2 3 -4 5
Пример вывода:
1 4 9 16 25
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад