Язык Pascal. Пльзователь вводит массив А, состоящий из n целых чисел. Найдите последний чётный элемент массива и выведите его на экран
Ответ
5/5
(1 оценка)
1
Мозг
Отвечающий
Ответ:
const n=10;
var a:array [1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
write('Введите значение ',i,'-го элемента массива: '); readln(a[i]);
if a[i] mod 2 = 0 then s:=i;
end;
if s = 0 then write('В массиве нет чётных чисел')
else write('Последний чётный элемент массива: ', a[s]);
end.