Регистрация
SergeyHodos
19.02.2022 18:53
Информатика
Есть ответ 👍

Составьте алгоритм (в виде блок -схемы и на Алгоритмическом Языке) нахождения наименьшего из двух значений".

235
289
Посмотреть ответы 1

Ответы на вопрос:

Skeletron129
Skeletron129
4,7(74 оценок)
Var  a: array[1..1000] of longint;   n,i,k: longint; begin   readln(n);   for i: =1 to n do read(a[i]);   if odd(a[1]) then k: =1 else k: =2;   for i: =2 to n do   begin   if (odd(a[i]))and(k=1) then   begin     writeln('no');     halt;   end;   if (not odd(a[i]))and(k=2) then   begin     writeln('no');     halt;   end;   if k=1 then k: =2 else k: =1;   end;   writeln('yes'); end.

Популярно: Информатика