Вопрос по информатике:
найти max и min роста всех учеников 10 класса....в классе 7 человек
- 07.08.2018 00:52
- Информатика
- remove_red_eye 9361
- thumb_up 66
Ответы и объяснения 1
Программа присваивает ученикам случайное значение роста в диапазоне от 160 до 180 см.
Program n1;
Uses CRT;
Const n=7;
Var A: array[1..n] of integer;
i,min,max: integer;
begin
randomize;
ClrScr;
Writeln('Rost vseh ychashihsa');
max:=0;
For i:=1 to n do
begin
a[i]:=random(20);
a[i]:=a[i]+160;
write(a[i]:4);
If a[i]>max then max:=a[i];
end;
min:=max;
For i:=1 to n do
If a[i]
Writeln('Max=',max,', min=',min);
readln
end.
- 08.08.2018 14:27
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.