Пожаловаться
- 17.01.2018 07:04
- Информатика
- remove_red_eye 15010
- thumb_up 20
Ответы и объяснения 1
Program p1;
Var
j : Integer;
A: Array[1..5] of Real;
P : Real;
Begin
Randomize;
P:=1;
For j:=1 to 5 do
Begin
A[j]:=random(100);
P:=P*A[j];
End;
Writeln('Произведение всех элементов массива А равно: ',P);
End;
Program p2;
Var
j : Integer;
A: Array[1..5] of Real;
Min : Real;
Begin
Randomize;
For j:=1 to 5 do
A[j]:=random(100);
Min:=A[1];
For j:=2 to 5 do
If( A[j] < Min )
Then
Min:=A[j];
Writeln('Значение минимального элемента массива: ',Min);
End;
Var
j : Integer;
A: Array[1..5] of Real;
P : Real;
Begin
Randomize;
P:=1;
For j:=1 to 5 do
Begin
A[j]:=random(100);
P:=P*A[j];
End;
Writeln('Произведение всех элементов массива А равно: ',P);
End;
Program p2;
Var
j : Integer;
A: Array[1..5] of Real;
Min : Real;
Begin
Randomize;
For j:=1 to 5 do
A[j]:=random(100);
Min:=A[1];
For j:=2 to 5 do
If( A[j] < Min )
Then
Min:=A[j];
Writeln('Значение минимального элемента массива: ',Min);
End;
Пожаловаться
- 18.01.2018 14:51
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы