Вопрос по информатике:
Программа ввода и вывода данных. Возведение в квадрат кождого элемента массива. путём randomize. от 1 до 20
Пожаловаться
- 02.09.2016 15:35
- Информатика
- remove_red_eye 934
- thumb_up 45
Ответы и объяснения 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.
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.
Пожаловаться
- 03.09.2016 15:47
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы