Помогите пожалуйста Безотлагательно!!! Пожалуйста
Помогите пожалуйста
Безотлагательно!!!
Пожалуйста
![](/content/imgs/68/https://ru-static.z-dn.net/files/d12/71e171e0f5dad24f2aa48302cc4aa9b6.png)
алг
нач
целтаб Dat[1:10]
цел k, m, num
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]
нц для к от 2 до 10
если Dat[к] * m lt; 0 то
m := Dat[к]; num := к
все
кц
вывод m
кон
Бейсик
DIM Dat(10) AS INTEGER
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
IF Dat(k)* m lt; 0 THEN
m = Dat(k)
num - k
END IF
NEXT k
PRINT m
END
Паскаль
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 begin
if Dat[k]* m lt; 0 then
begin
m := Dat [k]; num := k
end
end;
write (m);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.