Вопрос по информатике:
Помогите пожалуйста с кодом в паскале
Преобразовать массив, умножив все отрицательные числа на минимальное число этого массива
Пожаловаться
- 13.09.2018 05:18
- Информатика
- remove_red_eye 20050
- thumb_up 48
Ответы и объяснения 1
Var a: array [1..10] of integer;
i, min: integer;
Begin
For i:=1 to 10 do
a[i]:=Random(21)-10;
writeln('Исходный массив:');
For i:=1 to 10 do
write(a[i],' ');
writeln;
min:=a[1];
For i:=2 to 10 do
if a[i]
writeln('Минимальный элемент = ', min);
For i:=1 to 10 do
if a[i]<0 then
a[i]:=a[i]*min;
writeln('Преобразованный массив: ');
For i:=1 to 10 do
write (a[i], ' ');
writeln;
End.
Выполнение программы на рисунке.
i, min: integer;
Begin
For i:=1 to 10 do
a[i]:=Random(21)-10;
writeln('Исходный массив:');
For i:=1 to 10 do
write(a[i],' ');
writeln;
min:=a[1];
For i:=2 to 10 do
if a[i]
writeln('Минимальный элемент = ', min);
For i:=1 to 10 do
if a[i]<0 then
a[i]:=a[i]*min;
writeln('Преобразованный массив: ');
For i:=1 to 10 do
write (a[i], ' ');
writeln;
End.
Выполнение программы на рисунке.
Пожаловаться
- 15.09.2018 00:31
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы