![program CountNumbers; var Dat: array[0..6] of Integer; m, k: Integer; begin Dat [0] := 12; Dat[1] := 15; Dat[2] := 17; Dat[3] := 15; Dat[4] := 14; Dat[5] := 13; Dat [6] := 10; m := 0; for k := 0 to 6 do begin if Dat[k] >= 14 then m := m + 1; end;](/public/images/library/external/library-detail-hero-book.png)
program CountNumbers; var Dat: array[0..6] of Integer; m, k: Integer; begin Dat [0] := 12; Dat[1] := 15; Dat[2] := 17; Dat[3] := 15; Dat[4] := 14; Dat[5] := 13; Dat [6] := 10; m := 0; for k := 0 to 6 do begin if Dat[k] >= 14 then m := m + 1; end; writeln(m); end.
Dat размером 7 элементов (индексы от 0 до 6) типа Integer.Dat[0] := 12Dat[1] := 15Dat[2] := 17Dat[3] := 15Dat[4] := 14Dat[5] := 13Dat[6] := 10m инициализируется значением...
Внутри — полный разбор, аргументация, алгоритм решения, частые ошибки и как отвечать на каверзные вопросы препода, если спросит
Попробуй решить по шагам
Попробуй один шаг и продолжи в режиме обучения или посмотри готовое решение
