Вопрос по информатике:
Помогите пожалуйста! В Паскале надо переделать программу с одним циклом, на программу с двумя циклами.
Первый цикл: ввод данных в масив;
Второй цикл: цикл вывода min и maх.
Изначальный код программы:
Program наибольшее_и_наименьшее_число;
{ Программа для выявления }
{наибольшего и наименьшего числа }
Var
i,max,min:integer;
Z:array [1..10] of Integer;
Begin
{Вводим любые целые числа в массив }
i := 1;
Write('Z(',i,')=');
Readln(Z[i]);
Z[i]:=max;
Z[i]:=min;
i := i+1;
while i <= 10 do
begin
Write('Z(',i,')=');
Readln(Z[i]);
If (Z[i]>max) then max:=Z[i];
If (Z[i] i := i+1;
end;
Writeln('Наибольшее число=',max);
Writeln('Наименьшее число=',min);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.08.2015 19:53
- Информатика
- remove_red_eye 19211
- thumb_up 33
Ответы и объяснения 1
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
- 07.08.2015 22:47
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.