Предмет: Информатика, автор: TheMara

Язык Pascal. Пльзователь вводит массив А, состоящий из n целых чисел. Найдите последний чётный элемент массива и выведите его на экран ​


u654456u: Program massiv;
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.
TheMara: Зачем тут сумма?

Ответы

Автор ответа: pinguinbird
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.


TheMara: Спасибо большое!!
pinguinbird: Всегда пожалуйста
Похожие вопросы
Предмет: Информатика, автор: nabievabubakr