Ева671
Опубликовано 6 лет назад по предмету Информатика от Ева671


1.Написать программу, которая определяет наибольшее отрицательное целое число в массиве из 10 элементов. Значения элементов массива вводятся пользователем. 2.Написать программу, которая определяет наибольшее по модулю число в массиве из 10 введенных пользователем чисел.

  1. Ответ
    Ответ дан asoiiu
    1.varmas: array[0..10] of Integer ; i,min,j: Integer;begin min:=0; writeln('Введите числа:'); for i := 1 to 10 do begin ReadLn(mas[i]); if (mas[i] <0) then j:=mas[i]; if j then min:=j; end; WriteLn('Минимальное отрицательное число:',min);end.2.var mas: array [0..10] of Integer; i, max, j: Integer;begin writeln('Введите числа:'); for i := 1 to 10 do begin ReadLn(mas[i]); if abs(mas[i - 1]) < abs(mas[i]) then max := mas[i] ; end; WriteLn('Наибольшее по модулю число:', max);end.
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 10 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 10 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 10 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 10 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 10 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников