Войти Регистрация Спроси ai-bota

1)найти максимальный элемент средт четных элементов массива 2)массив задан датчиком случайных чисел на интервале от -37 до 66 найти наим нечетный элемент

Показать ответ

Ответ:

mihajlovalena45

06.10.2020 23:12

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.

Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86

begin
var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.

Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23

0,0(0 оценок)

Популярные вопросы: Информатика

akopovalizaveta

21.07.2020 14:54

7) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной...

привки228

18.03.2020 00:14

Изобразите файловую структуру в виде дерева С: \Рисунки \ Природа \ Небо.bmp C: \ Рисунки \ Природа \ Снег.bmp C: \ Рисунки \ Компьютер \Монитор.bmp C: \ Мои документы...

masharman250

10.03.2020 08:48

В одной из кодировок каждый символ кодируется 16 битами. Ученик написал текст (в нём нет лишних пробелов): «J, Cg, Cat, Ruby, Swift, Delphi, Haskell — языки программирования»....

alinkamalina04

21.06.2021 10:55

На трёх путях сортировочной станции стоят вагоны с абрикосами (А), бананами (Б) и вишней (В) так, как это показано на рисунке. Машинист тепловоза (Т) может за один раз...

Пулmn

04.06.2020 02:58

Найти основание системы счисления, в которой справедливо следующее равенство: 2y45+z1x7=x5y0. определить неизвестные цифры, обозначенные буквами...

КристинаCадовски

30.01.2022 17:30

Маша тратит на выполнение по одному предмету а часов и b минут. сегодня маше было задано r предметов. сколько часов и минут потратит маша на подготовку всех уроков? var...

Sashok1252535

30.11.2021 22:58

Вычислить значение s a b a& bva& b,если a=0,b=1...

Няшка9000

30.11.2021 22:58

Назовите основные элементы интерфейса...

ВампирLove

23.09.2020 21:47

Определите вес сообщения не работает, тот если один символ кодируеться 8 битами...

vektor9931oz1kb3

27.08.2022 22:06

Составить блок схему по фрагменту кода (круговой фрактал) public void d(double x, double y, int size, graphics g) { int n = 6, c = 3, rad = 0, den = 0; if (size 0) {...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку