Дан массив из 20 элементов, заполненный случайными целыми числами из интервала [-10, 10]. Выведите этот массив в строку и найдите наибольший элемент среди четных элементов массива
160
328
Ответы на вопрос:
Программа:
Pascal:
const n = 20; // кол-во элементов в массиве
var
arr: array[1..n] of integer;
i, maxEven: integer;
begin
maxEven := -MAXINT; // для будущего поиска минимального числа
write('Массив: ');
for i := 1 to n do
begin
arr[i] := random(-10, 10); // заполнение случайными числами от -10 до 10
write(arr[i], ' '); // вывод элемента
if arr[i] mod 2 = 0 then // если число чётное, то...
maxEven := arr[i]; // установить значение переменной maxEven, равное текущему макс.элементу
end;
writeln(#13, 'Максимальный чётный элемент: ', maxEven);
end.
Популярно: Информатика
-
shittt665504.04.2021 02:34
-
anokhina6919.02.2023 20:37
-
gorodkatya04.03.2021 10:07
-
rom4ik22723224510.06.2020 22:22
-
Pizetiv4ik20.11.2022 12:59
-
viktoriacotik101.05.2020 07:27
-
FrostMorne24.03.2022 22:17
-
Albina789015.05.2023 16:47
-
Клер1133010.02.2020 07:54
-
Титанэжжжжж27.04.2022 16:27