Предмет: Информатика,
автор: TheMara
Язык Pascal. Пльзователь вводит массив А, состоящий из n целых чисел. Найдите последний чётный элемент массива и выведите его на экран
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: Vdovichenkotim
Предмет: Русский язык,
автор: natalya7611
Предмет: Другие предметы,
автор: milaevtushenko
Предмет: Информатика,
автор: nabievabubakr
Const n=100;
Var a:array[1..n] of integer;
i,s:integer;
Begin
s:=0;
For i:=1 to n do
Begin
a[i]:=i*i;
Write(a[i]:6);
s:=s+a[i];
end;
WriteLn;
Write('Сумма=',s);
end.