Регистрация
olzhabekzhazira
23.09.2020 09:37
Информатика
Есть ответ 👍

Дан алгоритм. Определить, что он делает, и добавьте текст внутри ‘ ‘ в команды вывода в конце алгоритма.
Program test;
Const N=20;
Var b :array [1..N] of Integer;
i,min1,min2,p1,p2 :Integer;
Begin
For i:=1 to N do begin
b[i]:=random(80)+20; write(b[i]:3); end;
writeln;
min1:=b[1];
min2:=b[1];
For i:=1 to N do
Begin
If (b[i] mod 2<>0) and (b[i] begin min1:=b[i]; p1:=i; end;
If (b[i] mod 2=0) and (b[i] begin min2:=b[i]; p2:=i; end;
end;
Writeln(' ',min1,' ',p1);
Writeln(' ',min2,' ',p2);
If p1>p2 then Writeln(' ',min2,' ')
else Writeln(' ',min1,' ')
End.
Паскаль

219
236
Посмотреть ответы 1

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

Soonthanyou
Soonthanyou
4,5(23 оценок)
1. тут происходит & -конъюкция двух противоположных элементов, следовательно =false 2. это выражение должно быть равно false, перебираем: 0 1 1 0 1 1 0 0 1 1 1 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 1 0 a b c result только при этих комбинациях выражение равно false

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