Вопрос по информатике:
Ввести одномерный массив состоящий из четырех элементов. найти максимальный элемент. если он меньше 250 то вывести на экран удвоенный максимальный элемент иначе вывести на экран максимальный элемент без изменений
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.04.2016 04:18
- Информатика
- remove_red_eye 10468
- thumb_up 38
Ответы и объяснения 2
var i,max:integer;M:array [1..4] of integer;
begin
for i:=1 to 4 do
begin
Writeln('Введите ',i,' элемент массива');
Readln(m[i]);
end;
max:=m[i];
for i:=1 to 4 do
if max
Writeln('Максимальный элемент равен =',max)
end.
- 12.04.2016 14:39
- thumb_up 18
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(4,1,500); // создали массив
a.Println; // распечатали его элементы
var max:=a.Max;
if max<250 then Writeln(2*max)
else Writeln(max)
end.
- 13.04.2016 14:53
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.