Предмет: Информатика,
автор: davazayac
Решить задачу по информатике, паскаль (массив)
В массиве 10 элементов определить максимальный элемент среди нечетных чисел и количество чисел оканчивающихся на 5.
С объяснениями.
Ответы
Автор ответа:
0
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 5 =0 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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: stenzya
Предмет: Українська література,
автор: 02010973
Предмет: Русский язык,
автор: inna0811
Предмет: Алгебра,
автор: rew9
Предмет: Геометрия,
автор: Makskot66