Задать вопрос
21 июля, 04:47

Задания 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)
  1. 21 июля, 06:35
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задания 10 по огэ по информатике 2017 Var k, m: integer; Dat: array[1 ...10] of integer; Begin Dat[1] : = - 7; Dat[2] : = - 8; Dat[3] : = ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы