1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
Программа:
clear
dimension b[20]
for=1 to 20
b[i]=val(inputbox("значения B"))
endfor
max=b[1]
for i=1 to 20
if b[i]>max
max=b[i]
n=i
endif
endfor
?max,n
блок схему сами сделайте по программе