Предмет: Информатика,
автор: malenvredina
программа ввода и вывода данных. Возведение в квадрат кождого элемента массива. путём randomize. от 1 до 20
Ответы
Автор ответа:
0
Const
N = 13;
Var
A:Array[1..N] of integer;
i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(19)+1;
Write(' ',A[i]);
End;
WriteLn;
Write('Каждый элемент возводится в квадрат:');
For i:= 1 to N do
Begin
A[i]:=A[i]*A[i];
Write(' ',A[i])
End
End.
N = 13;
Var
A:Array[1..N] of integer;
i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(19)+1;
Write(' ',A[i]);
End;
WriteLn;
Write('Каждый элемент возводится в квадрат:');
For i:= 1 to N do
Begin
A[i]:=A[i]*A[i];
Write(' ',A[i])
End
End.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Геометрия,
автор: sofronovak53
Предмет: Английский язык,
автор: Home00000
Предмет: Химия,
автор: Юлия19931
Предмет: Химия,
автор: DashaCz1