В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второ?

Ole4ka3883 2 сент. 2020 г., 01:23:35

Будет напечатан день декады, в который вылетело меньшевсего самолетов.

Причем если таких дней несколько будет выбран последний из них.

В нашем случае это 6.

Ниже в программе после / / написано пояснение к нижеследующему коду.

Var k, m, day : integer ;

Dat : array[1.

10] of integer ;

Begin / / Здесь определяютсязначения элементов массиа Dat - количество самолетов за каждый день декады

Dat[1] : = 2 ;

Dat[2] : = 2 ;

Dat[3] : = 3 ;

Dat[4] : = 3 ;

Dat[5] : = 2 ;

Dat[6] : = 2 ;

Dat[7] : = 5 ;

Dat[8] : = 5 ;

Dat[9] : = 6 ;

Dat[10] : = 6 ; / / переменным день и m присваиваются начальные значения / / переменная m предназначена для запоминанияпромежуточного результата работы алгоритма.

Day : = 1 ; m : = Dat[1] ; / / организуем цикл в котором каждый (начиная со второго) день сравнивается с текущим значением m в котором фиксируется каждый раз меньшая величина из двух сравниваемыхпо количеству самолетов

for k : = 2 to 10 do / / если кол - во самолетов втекущий день (Dat[k]) меньше или равно самому меньшему количеству самолетов за предыдущие дни ( мы помним, что m изначальноприсвоили значение для первого дня)), то значение m меняем на значениеDat[k] и переменнойdayприсваиваем номер этого дня

if Dat[k] = < ; m then

begin

m : = Dat[k] ;

day : = k ;

end ; / / после работы цикла выводим последнее значение day.

Т. е.

Номер дня, в котором вылетело меньше всего самолетов

write(day) ;

End.

БаранчикШо 2 сент. 2020 г., 01:23:39

До работы цикла переменнойday присваиваем 1 (в конце он будет равен номеру дня - day : = k, полученному врез.

Выполнения программы).

Переменнойm присваиваем значение 1 - го дня = 2.

Затем начинаем сравнивать значенияDat[k] = < ; m , начиная сk : = 2 до 10,

Если условие верно, m : присваиваем значениеDat[k], day : = k.

1 шаг СравниваемDat[k] = < ; m (Dat[2]( а это2) = < ; 2

Да, верноm : = 2, day : = 2.

2 шаг 3 = < ; 2 Нет, оставляемm : = 2, day : = 2

3 шаг 3 = < ; 2 Нет, m : = 2, day : = 2

4 шаг 2 = < ; 2, да, m : = 2, day : = 5

5 шаг 2 = < ; 2 , да, m : = 2, day : = 6

6 шаг 5 = < ; 2 Нет, m : = 2, day : = 6

7 шаг5 = < ; 2 Нет, m : = 2, day : = 6

8 шаг 6 = < ; 2 Нет, m : = 2, day : = 6

9 шаг6 = < ; 2 Нет, m : = 2, day : = 6

На экране будет число 6 (write(day)).

Hehehe44 25 дек. 2020 г., 18:22:03 | 5 - 9 классы

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя ; Dat[2] — за второго и т?

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя ; Dat[2] — за второго и т.

Д. ).

Определите, какое число будет напечатано в результате работы следующей программы.

Текст программы приведён на трёх языках программирования.

Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat[1 : 10] цел k, m Dat[1] : = 16 Dat[2] : = 20 Dat[3] : = 20 Dat[4] : = 41 Dat[5] : = 14 Dat[6] : = 21 Dat[7] : = 28 Dat[8] : = 12 Dat[9] : = 15 Dat[10] : = 35 m : = 0 нц для k от 1 до 10 если Dat[k]> ; m то m : = Dat[k] все кц вывод m кон DIM Dat(10) AS INTEGER DIM k, m AS INTEGER Dat(1) = 16 : Dat(2) = 20 Dat(3) = 20 : Dat(4) = 41 Dat(5) = 14 : Dat(6) = 21 Dat(7) = 28 : Dat(8) = 12 Dat(9) = 15 : Dat(10) = 35 m = 0 FOR k = 1 TO 10 IF Dat(k)> ; m THEN m = Dat(k) ENDIF NEXT k PRINT m Var k, m : integer ; Dat : array[1.

10] of integer ; Begin Dat[1] : = 16 ; Dat[2] : = 20 ; Dat[3] : = 20 ; Dat[4] : = 41 ; Dat[5] : = 14 ; Dat[6] : = 21 ; Dat[7] : = 28 ; Dat[8] : = 12 ; Dat[9] : = 15 ; Dat[10] : = 35 ; m : = 0 ; for k : = 1 to 10 do if Dat[k]> ; m then begin m : = Dat[k] end ; writeln(m) ; End.

Dasha258qazaq 8 мар. 2020 г., 13:19:09 | 5 - 9 классы

Var k, m : integer ; Dat : array[1?

Var k, m : integer ; Dat : array[1.

10] of integer ;

Begin

Dat[1] : = 16 ;

Dat[2] : = 20 ;

Dat[3] : = 20 ;

Dat[4] : = 41 ;

Dat[5] : = 14 ;

Dat[6] : = 21 ;

Dat[7] : = 28 ;

Dat[8] : = 12 ;

Dat[9] : = 15 ;

Dat[10] : = 35 ;

m : = 0 ;

for k : = 1 to 10 do

if Dat[k]> ; m then

begin

m : = Dat[k]

end ;

writeln(m) ;

End.

С пояснениями, пожалуйста!

Prp150 1 апр. 2020 г., 10:19:13 | 5 - 9 классы

Var k, m : integer ; Dat [1] : = 12 ; Dat [2] : = 15 ; Dat [3] : = 17 ; Dat [4] : = 15 ; Dat [5] : = 14 ; Dat [6] : = 12 ; Dat [7] : = 10 ; Dat [8] : = 13 ; Dat [9] : = 14 ; Dat [10] : = 15 ; m : = 0 ?

Var k, m : integer ; Dat [1] : = 12 ; Dat [2] : = 15 ; Dat [3] : = 17 ; Dat [4] : = 15 ; Dat [5] : = 14 ; Dat [6] : = 12 ; Dat [7] : = 10 ; Dat [8] : = 13 ; Dat [9] : = 14 ; Dat [10] : = 15 ; m : = 0 ; for k : = 1 to 10 do if Dat [k]> ; 12 then begin m : = Dat [k] end ; writeln(m) ; End.

Diantella2003 20 мар. 2020 г., 21:48:06 | 5 - 9 классы

Объясните как делать В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик Dat[2] – второй ученик и т?

Объясните как делать В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик Dat[2] – второй ученик и т.

Д. ).

Определите, что будет напечатано в результате работы следующей программы.

Алгоритмический язык алг нач целтаб Dat[1 : 10] цел k, m Dat[1] : = 7 ; Dat[2] : = 9 Dat[3] : = 10 ; Dat[4] : = 5 Dat[5] : = 6 ; Dat[6] : = 7 Dat[7] : = 9 ; Dat[8] : = 8 Dat[9] : = 6 ; Dat[10] : = 9 m : = 10 нц для k от 1 до 10 если Dat[k] < ; m то m : = Dat[k] все кц вывод m кон.

Ridesdion 13 нояб. 2020 г., 23:34:23 | 5 - 9 классы

В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т?

В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.

Д. ).

Определите, что будет напечатано в результате выполнения следующего алгоритма Var k, m, day : integer ; Dat : array[1.

7] of integer ; Begin Dat[1] : = 7 ; Dat[2] : = 9 ; Dat[3] : = 10 ; Dat[4] : = 8 ; Dat[5] : = 6 ; Dat[6] : = 7 ; Dat[7] : = 6 ; day : = 1 ; m : = Dat[1] ; for k : = 2 to 7 do begin if Dat[k] < ; m then begin m : = Dat [k] ; day : = k end end write(day) ; End.

Dashastegniy0 20 мая 2020 г., 09:44:21 | 5 - 9 классы

В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второ?

В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т.

Д. ).

Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.

Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat[1 : 10] цел k, m, day Dat[1] : = 2 Dat[2] : = 2 Dat[3] : = 3 Dat[4] : = 3 Dat[5] : = 4 Dat[6] : = 4 Dat[7] : = 5 Dat[8] : = 5 Dat[9] : = 6 Dat[10] : = 6 day : = 1 ; m : = Dat[1] нц для k от 2 до 10 если Dat[k] > ; = m то m : = Dat[k] day : = k все КЦ вывод day КОН DIM Dat(10) AS INTEGER Dat[1] = 2 Dat[2] = 2 Dat[3] = 3 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 5 Dat[8] = 5 Dat[9] = 6 Dat[10] = 6 day = 1 : m = Dat(1) FOR k = 2 TO 10 IF Dat(k) > ; = m THEN m = Dat(k) day = k END IF NEXT k PRINT day END Var k, m, day : integer ; Dat : array[1.

10] of integer ; Begin Dat[1] : = 2 ; Dat[2] : = 2 ; Dat[3] : = 3 ; Dat[4] : = 3 ; Dat[5] : = 4 ; Dat[6] : = 4 ; Dat[7] : = 5 ; Dat[8] : = 5 ; Dat[9] : = 6 ; Dat[10] : = 6 ; day : = 1 ; m : = Dat[1] ; for k : = 2 to 10 do if Dat[k] > ; = m then begin m : = Dat[k] ; day : = k ; end ; write(day) ; End.

Vladimirsyarcenko6 19 авг. 2020 г., 18:59:49 | 5 - 9 классы

В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т?

В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т.

Д. ).

Определите, какое число будет напечатано в результате работы следующей программы.

Текст программы приведён на трёх языках программирования.

Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat[1 : 10] цел к, s Dat[1] : = 7 Dat[2] : = 9 Dat[3] : = 10 Dat[4] : = 5 Dat[5] : = 6 Dat[6] : = 7 Dat[7] : = 9 Dat[8] : = 8 Dat[9] : = 6 Dat[10] : = 9 s : = 0 нц для к от 1 до 10 s : = s + Dat[k] все КЦ вывод s КОН DIM Dat(10) AS INTEGER DIM k, m, n AS INTEGER Dat[1] = 7 Dat[2] = 9 Dat[3] = 10 Dat[4] = 5 Dat[5] = 6 Dat[6] = 7 Dat[7] = 9 Dat[8] = 8 Dat[9] = 6 Dat[10] = 9 s = 0 FOR k : = 1 TO 10 IF Dat(k) < ; m THEN s : = s + Dat[k] ENDIF NEXT k PRINT s Var k, m, n : integer ; Dat : array[1.

10] of integer ; Begin Dat[1] : = 7 ; Dat[2] : = 9 ; Dat[3] : = 10 ; Dat[4] : = 5 ; Dat[5] : = 6 ; Dat[6] : = 7 ; Dat[7] : = 9 ; Dat[8] : = 8 ; Dat[9] : = 6 ; Dat[10] : = 9 ; s : = 0 ; for k : = 1 to 10 do s : = s + Dat[k] ; writeln(s) ; End.

Айз8 5 сент. 2020 г., 20:57:19 | 10 - 11 классы

В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т?

В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т.

Д. ).

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы.

Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык алг нач цел­таб Dat[1 : 11] цел к, m Dat[1] : = 20 Dat[2] : = 25 Dat[3] : = 19 Dat[4] : = 25 Dat[5] : = 26 Dat[6] : = 22 Dat[7] : = 24 Dat[8] : = 28 Dat[9] : = 26 Dat[10] : = 21 Dat[11] : = 27 m : = 0 нц для к от 1 до 11 если Dat[к] > ; 22 то m : = m + 1 все КЦ вывод m КОН Бейсик DIM Dat(11) AS INTEGER DIM k, m AS INTEGER Dat[1] = 20 Dat[2] = 25 Dat[3] = 19 Dat[4] = 25 Dat[5] = 26 Dat[6] = 22 Dat[7] = 24 Dat[8] = 28 Dat[9] = 26 Dat[10] = 21 Dat[11] = 27 m = 0 FOR k : = 1 TO 11 IF Dat(k) > ; 22 THEN m = m + 1 ENDIF NEXT k PRINT m Паскаль Var k, m : integer ; Dat : array[1.

11] of integer ; Begin Dat[1] : = 20 ; Dat[2] : = 25 ; Dat[3] : = 19 ; Dat[4] : = 25 ; Dat[5] : = 26 ; Dat[6] : = 22 ; Dat[7] : = 24 ; Dat[8] : = 28 ; Dat[9] : = 26 ; Dat[10] : = 21 ; Dat[11] : = 27 ; m : = 0 for k : = 1 to 11 do if Dat[k] > ; 22 then begin m : = m + 1 ; end ; writeln(m) ; End.

Talka51 26 окт. 2020 г., 17:29:11 | 5 - 9 классы

В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т?

В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т.

Д. ).

Определите, какое число будет напечатано в результате работы следующей программы.

Алг нач целтаб Dat[1 : 10] цел k, m Dat[1] : = 7 ; Dat[2] : = 9 Dat[3] : = 10 ; Dat[4] : = 5 Dat[5] : = 6 ; Dat[6] : = 7 Dat[7] : = 9 ; Dat[8] : = 8 Dat[9] : = 6 ; Dat[10] : = 9 m : = 0 нц для k от 1 до 10 если Dat[k] > ; 6 то m : = m + 1 все кц вывод m кон.

ГОП9 5 дек. 2020 г., 11:49:18 | 5 - 9 классы

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя ; Dat[2] — за второго и т?

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя ; Dat[2] — за второго и т.

Д. ).

Определите, какое число будет напечатано в результате работы следующей программы.

Текст программы приведён на трёх языках программирования.

Var k, m : integer ; Dat : array[1.

10] of integer ; Begin Dat[1] : = 16 ; Dat[2] : = 20 ; Dat[3] : = 20 ; Dat[4] : = 41 ; Dat[5] : = 14 ; Dat[6] : = 21 ; Dat[7] : = 28 ; Dat[8] : = 12 ; Dat[9] : = 15 ; Dat[10] : = 35 ; m : = 0 ; for k : = 1 to 10 do if Dat[k]> ; m then begin m : = Dat[k] end ; writeln(m) ; End.

Объясните по подробнее пожалуйста.