Программа ввода и вывода данных. Возведение в квадрат кождого элемента массива. путём randomize. от 1 до 20

Question

Информатика

Анастасьюшка

2 августа, 00:02

Программа ввода и вывода данных. Возведение в квадрат кождого элемента массива. путём randomize. от 1 до 20

+4

Ответы (1)

Знаете ответ на вопрос?

Филипка · Answer 1

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.