Вопрос по информатике:
Как сделать так что бы программа выводила наименьшее число?
var
a, b, c: integer;
d: array [1..10] of integer;
begin
for b := 1 to 10 do
begin
write('Bведите число ', b, ' ');
d[b] := random(100) + 100;
writeln(d[b]:4);
end;
b := d[1];
c := 1;
for b := 2 to 10 do
begin
if d[b]>a then
begin
a := d[b];
c := b;
end;
end;
write('Самое большое число под номером ', c, ' это число ', a);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.03.2015 22:40
- Информатика
- remove_red_eye 896
- thumb_up 38
Ответы и объяснения 1
Вар, б, в: целое;г: массив [1 .. 10] из целого;начинатьдля Ъ: = 1 до 10 сделатьначинатьнаписать ('Bведите число', Ь, '');D [B]: = случайных (100) + 100;WriteLn (г [б]: 4);конец;б: = D [1];с: = 1;для Ъ: = 2 до 10 сделатьначинатьесли г [б]> тоначинать: = D [б];с: = б;конец;закончить;написать ('Самое большое число под номером', с, 'это число',);конец.
- 03.03.2015 03:07
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.