В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ира8800
ира8800
09.05.2021 04:19 •  Информатика

составить программу в visual Basic »:
1.Заполнить массив случайными числами и найти минимальный и максимальный элементы массива и их номера.
Пример:
Массив:
1 2 3 4 5
Минимальный элемент: A[1]=1
Максимальный элемент: A[5]=5
2.Введите массив с клавиатуры и найдите количество элементов, имеющих максимальное значение.
Пример:
Массив:
3 4 5 5 3 4 5
Максимальное значение 5
Количество элементов 3

Показать ответ
Ответ:
смерть75
смерть75
08.08.2022 12:40
1) Информационный ресурс-это данные в любом виде для получения достоверной информации. Это может файл, фотография, какое-то видео,отдельные массивы документов в информационных системах и так далее.
2) Информационные ресурсы делятся на три вида-государственные(национальные) ресурсы, персональные информационные ресурсы, информационные ресурсы предприятий.
3) МSNBС-представляет новости СШA, АBС Nеws-представляет новости со всего мира на английском языке, Wikiрedia-сетевая энциклопедия на разных языках со всего мира, электронные книги, и многое другое
0,0(0 оценок)
Ответ:
maksimwwe00718
maksimwwe00718
26.05.2023 12:45
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018

// Внимание! Если программа не работает, обновите версию!

// Программа №1

begin

   var mas:=ArrRandom(20,-99,99); mas.Println;

   Writeln('сумму  с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);

end.

// Программа №2

begin

   var n:=readinteger('n='); 

   var mas:=ArrRandom(n,-99,99); mas.Println;

   Writeln('элементы < 5');

   mas.Where(t->t<5).Println;

   end.

//Программа №3

begin

   var n:=readinteger('n='); 

   var mas:=ArrRandom(n,-99,99); mas.Println;

   Write('Сумма=');

   mas.Where(t->t mod 10 = 3).Sum.Println;

   end.
Водномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с д
Водномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с д
Водномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с д
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота