Question

Решить задачу по информатике, паскаль (массив)
В массиве 10 элементов определить максимальный элемент среди нечетных чисел и количество чисел оканчивающихся на 5.

Answer 1

program mass_maxnech_kolkrat5;

uses crt;

const n=10;

var

i,max,kol:integer;

a:array[1..n] of integer;

begin

max:=1;

kol:=0;

for i:=1 to n do

begin

a[i]:= random(101);

write(a[i],' ');

if a[i] mod 10 =5 then kol:=kol+1;

if (a[i]>max) and(a[i]mod 2=1) then max:=a[i];

end;

writeln;

writeln('Максимальный нечетный элемент=',max);

writeln('Количество чисел, оканчивающихся на 5=',kol);

readln;

end.