10 в таблице dat хранятся данные о количестве проданных единиц товаров 10 типов (dat[1] — проданных товаров первого типа, dat[2] — второго типа и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. алгоритмический язык алг нач целтаб dat [1: 10] цел к, m dat [1] = 45; dat[2]: = 55 dat [3] = 40; dat[4]: = 15 dat [5] = 20; dat[6]: = 80 dat [7] = 35; dat[8]: = 70 dat [9] = 10 dat [10] : = 45 m: = dat[l] нц для к от 2 до 10 если dat[к] < dat[l] то m : = m + dat[k] все кц вывод m кон бейсик dim dat(10) as integer dat(1)= 45 dat(2)= 55 dat(3)= 40 dat(4)= 15 dat(5)= 20 dat(6)= 80 dat(7)= 35 dat(8)= 70 dat(9)= 10 dat(10)= 45 m = dat(1) for k = 2 to 10 if dat(k) < dat (1) then m = m + dat(k) end if next k print m end паскаль var k, m: integer; dat: array[1..10] of integer; begin dat[1]: = 45; dat[2]: = 55; dat[3]: = 40; dat[4]: = 15; dat[5]: = 20; dat[6]: = 80; dat[7]: = 35; dat[8]: = 70; dat[9]: = 10; dat[10]: = 45; m: = dat [1]; for k: = 2 to 10 do begin if dat[k] < dat[1] then begin m: = m + dat [k] end end; write(m); end.

Nkpr Nkpr    1   02.09.2019 18:30    9

Ответы
kira9let kira9let  06.10.2020 12:58
Эм, ищем сумму элементов которые меньше первого и первого

var
    k, m: integer;
    Dat: array[1..10] of integer;

begin
    Dat[1] := 45;Dat[2] := 55;
    Dat[3] := 40;Dat[4] := 15;
    Dat[5] := 20;Dat[6] := 80;
    Dat[7] := 35;Dat[8] := 70;
    Dat[9] := 10;Dat[10] := 45;
   
    m := Dat[1];
    for k := 2 to 10 do
        if Dat[k] < Dat[1] then
            m := m + Dat[k];
    write(m);
end.

Вывод 165
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика