Дан массив А из N целочисленных элементов. 1)Заполнить массив А целыми числами в...

Question

Дан массив А из N целочисленных элементов.

1)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти максимальный четный элемент и вывести его на экран.
2)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти второй минимальный нечетный элемент и вывести его на экран.

Answer 1

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

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

begin

 var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println;      // общее

 Println('Максимальный четный ', a.Where(t -> t.IsEven).Max);   // задача 1

 Print('Второй минимальнывй нечетный');                         // задача 2

 a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println  // задача 2

end.

Пример

n= 15

67 8 60 1 96 40 73 25 39 93 64 89 40 69 9

Максимальный четный  96

Второй минимальнывй нечетный 89

Comments

конечно правильно, но надо проще типа этого

---

PROGRAM Task1_1;
const
n = 10;
VAR a: array [1..n] of integer;
I,M,H: integer;
BEGIN
writeln('Исходный массив:');
For I := 1 to n do
begin
a[I] := RANDOM(1,200);
write(a[I]:4);
END;
FOR I := 1 TO n DO
IF A[I] mod 2 = 0 THEN
IF A[I] DIV 10 mod 10 > 5 THEN
M := M + 1;
writeln;
writeln('Кол-во НУЖНЫХ элементов: ', M);
END.

---

но переделать на эти 2 задачи

---

ок?

---

Во-первых, как Вам надо, следует указывать в вопросе, ДО получения ответа, а не после. А во-вторых, "не ОК", - с чего это я буду делать двойную работу, да еще и в стиле наших предков?

---

Если ваш учитель не может давать современный стиль программирования, то это не моя вина, а ваша беда.