Задания 10 по огэ по информатике 2017 Var k, m: integer; Dat: array[1 ...10] of integer; Begin Dat[1] : = - 7; Dat[2] : = - 8; Dat[3] : = 3; Dat[4] : = 6; Dat[5] : = - 4; Dat[6] : = 3; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 7; Dat[10] : = 1; num:=1; m : = Dat (1) ; for k : = 2 to 10 do if Dat [ k] * m< 0 then begin m : = Dat[k] num: = k end; writeln (m) ; End.

Question

Информатика

Павлуся

16 декабря, 13:59

Задания 10 по огэ по информатике 2017 Var k, m: integer; Dat: array[1 ...10] of integer; Begin Dat[1] : = - 7; Dat[2] : = - 8; Dat[3] : = 3; Dat[4] : = 6; Dat[5] : = - 4; Dat[6] : = 3; Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 7; Dat[10] : = 1; num:=1; m : = Dat (1) ; for k : = 2 to 10 do if Dat [ k] * m< 0 then begin m : = Dat[k] num: = k end; writeln (m) ; End.

+1

Ответы (1)

Знаете ответ на вопрос?

Дуняра · Answer 1

Var

k, m, num: integer;

Dat: array[1 ... 10] of integer;

Begin

Dat[1] : = - 7; Dat[2] : = - 8;

Dat[3] : = 3; Dat[4] : = 6;

Dat[5] : = - 4; Dat[6] : = 3;

Dat[7] : = 5; Dat[8] : = 5;

Dat[9] : = 7; Dat[10] : = 1;

num:=1;

m : = Dat[1];

for k : = 2 to 10 do

if Dat [ k] * m< 0 then

begin

m : = Dat[k];

num: = k

end;

writeln (m) ;

End.

Ответ

3