Вопрос по информатике:
1) Задан массив A(N). Элементы различны. Найти наименьший элемент
2) Найти номер наибольшего элемента массива размером МхN, элементы которого вводятся с клавиатуры.
3) Задан массив. Получить сумму положительных, число отрицательных и число нулевых элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.09.2016 16:39
- Информатика
- remove_red_eye 19896
- thumb_up 16
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
Пример
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
№3
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
Пример
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2
- 20.09.2016 17:23
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.