Var k, m :integer Dat : array 1 - 10 of : integer begin Dat 1:= 5 Dat 2:= 4 Dat 3:= -3 Dat 4:= 2 Dat 5:= 1 Dat 6:= -10 Dat 7:= 9 Dat 8:= 8 Dat 9:= -7 Dat 10:= 6 m:= 1 for k:= 1 to 10 if Dat [k] × m < 0 then m:= Dat [k] end writeln (m); End

Question 1

Задача Задача №446792

А

Аноним

18 февраля 2024 13:49 · публичный вопрос

А

Аноним 18 февраля 2024 13:49

Var k, m :integer Dat : array 1 - 10 of : integer begin Dat 1:= 5 Dat 2:= 4 Dat 3:= -3 Dat 4:= 2 Dat 5:= 1 Dat 6:= -10 Dat 7:= 9 Dat 8:= 8 Dat 9:= -7 Dat 10:= 6 m:= 1 for k:= 1 to 10 if Dat [k] × m < 0 then m:= Dat [k] end writeln (m); End

Answer

m:=1 для k:=1 до 10 если Dat[k] × m < 0 то m:= Dat[k] конец если конец цикла вывод (m) конец

Question 2

Var k, m :integer Dat : array 1 - 10 of : integer begin Dat 1:= 5 Dat 2:= 4 Dat 3:= -3 Dat 4:= 2 Dat 5:= 1 Dat 6:= -10 Dat 7:= 9 Dat 8:= 8 Dat 9:= -7 Dat 10:= 6 m:= 1 for k:= 1 to 10 if Dat [k] × m < 0 then m:= Dat [k] end writeln (m); End

Answer

m:=1 для k:=1 до 10 если Dat[k] × m < 0 то m:= Dat[k] конец если конец цикла вывод (m) конец