
Вопрос задан 30.06.2023 в 23:58.
Предмет Информатика.
Спрашивает Григорьев Михаил.
Помогите пожалуйста!!!!! К завтрашнему дню надо!!! 1)В таблице Ball хранятся отметки по
контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма. var k, c: integer; Ball:array[1..10] of integer; begin c := 0; Ball[1] := 4; Ball[2] := 5; Ball[3] := 3; Ball[4] := 4; Ball[5] := 2; Ball[6] := 5; Ball[7] := 4; Ball[8] := 3; Ball[9] := 4; Ball[10] := 5; for k := 1 to 10 do if Ball[k] >4 then c := c + 1; write(c); end. 2)В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] − температура в понедельник, Dat[2] − во вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма. var Dat: array[1..7] of integer; k, day: integer; begin Dat[1] := 9; Dat[2] := 11; Dat[3] := 10; Dat[4] := 13; Dat[5] := 8; Dat[6] := 5; Dat[7] := 11; day := 0; for k := 1 to 7 do if Dat[k] <= 10 then day := day + 1; writeln(day); end. 3)В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 2; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > 3 then m := m + 1; writeln(m); End.

Ответы на вопрос

Отвечает Гасымов Адалет.
Ответ:
1) 3
2) 4
3) 6
(ограничение в двадцать символов, поэтому пишу эту строку, не обращай внимания)



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я помогу разобрать каждый из этих алгоритмов.
- В данном алгоритме происходит подсчет количества отметок, которые больше 4. Для этого создается счетчик
c
, который инициализируется нулем. Затем в циклеfor
перебираются элементы массиваBall
, и если значение элемента больше 4, то счетчик увеличивается на 1. В конце алгоритма выводится значение счетчикаc
.
Исходные данные: Ball = [4, 5, 3, 4, 2, 5, 4, 3, 4, 5]
Проходы цикла:
- k = 1: Ball[1] = 4 (не больше 4)
- k = 2: Ball[2] = 5 (больше 4, c = 1)
- k = 3: Ball[3] = 3 (не больше 4)
- ...
- k = 10: Ball[10] = 5 (больше 4, c = 3)
Итоговый вывод: 3
- В этом алгоритме происходит подсчет дней, когда температура воздуха была менее или равной 10 градусам. Создается переменная
day
, которая инициализируется нулем. Затем в циклеfor
перебираются элементы массиваDat
, и если значение элемента меньше или равно 10, то значение переменнойday
увеличивается на 1. В конце алгоритма выводится значение переменнойday
.
Исходные данные: Dat = [9, 11, 10, 13, 8, 5, 11]
Проходы цикла:
- k = 1: Dat[1] = 9 (меньше 10, day = 1)
- k = 2: Dat[2] = 11 (не меньше 10)
- k = 3: Dat[3] = 10 (меньше 10, day = 2)
- ...
- k = 7: Dat[7] = 11 (не меньше 10)
Итоговый вывод: 2
- В данном алгоритме происходит подсчет количества дней, когда среднесуточная температура была больше 3 градусов. Создается переменная
m
, которая инициализируется нулем. Затем в циклеfor
перебираются элементы массиваDat
, и если значение элемента больше 3, то значение переменнойm
увеличивается на 1. В конце алгоритма выводится значение переменнойm
.
Исходные данные: Dat = [2, 5, 7, 5, 4, 2, 0, 2, 4, 5]
Проходы цикла:
- k = 1: Dat[1] = 2 (не больше 3)
- k = 2: Dat[2] = 5 (больше 3, m = 1)
- k = 3: Dat[3] = 7 (больше 3, m = 2)
- ...
- k = 10: Dat[10] = 5 (больше 3, m = 6)
Итоговый вывод: 6


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 562

Информатика 404

Информатика 31

Информатика 76

Информатика 16

Информатика 41

Информатика 31
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili