В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Алгоритмический язык | |
| алг нач целтаб Ball[1:10] цел k, c Ball[1] := 3; Ball[2] := 5 Ball[3] := 3; Ball[4] := 2 Ball[5] := 5; Ball[6] := 5 Ball[7] := 4; Ball[8] := 3 Ball[9] := 3; Ball[10] := 5 c := 0 нц для k от 1 до 10 если Ball[k] < 4 то c := c + 1 все кц вывод c кон | |
| Бейсик | Паскаль |
| DIM Ball(10) AS INTEGER DIM k, c AS INTEGER Ball(1) = 3: Ball(2) = 5 Ball(3) = 3: Ball(4) = 2 Ball(5) = 5: Ball(6) = 5 Ball(7) = 4: Ball(8) = 3 Ball(9) = 3: Ball(10) = 5 c = 0 FOR k = 1 TO 10 IF Ball(k)< 4 THEN c = c + 1 END IF NEXT k PRINT c END | var k, c: integer; Ball: array[1..10] of integer; begin Ball[1] := 3; Ball[2] := 5; Ball[3] := 3; Ball[4] := 2; Ball[5] := 5; Ball[6] := 5; Ball[7] := 4; Ball[8] := 3; Ball[9] := 3; Ball[10] := 5; c := 0; for k := 1 to 10 do if Ball[k] < 4 then c := c + 1; write(c); end. |
Решение.
Это задание ещё не решено, приводим решение прототипа.
В таблице Ball хранятся баллы, набранные участниками школьного тура олимпиады по математике (Ball[1] — балл 1 ученика, Ball[2] — балл 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Ball(10) AS INTEGER DIM k,m AS INTEGER Ball(1) = 42: Ball(2) = 25 Ball(3) = 13: Ball(4) = 18 Ball(5) = 15: Ball(6) = 55 Ball(7) = 48: Ball(8) = 13 Ball(9) = 64: Ball(10) = 45 m = Ball(1) FOR k = 1 TO 10 IF Ball(k) < m THEN m = Ball(k) ENDIF NEXT k PRINT m | Ball = [42, 25, 13, 18, 15, 55, 48, 13, 64, 45] m = Ball[0] for k in range (10): if Ball[k] < m: m = Ball[k] print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Ball: array[1..10] of integer; Begin Ball[1]:=42;Ball[2]:=25; Ball[3]:=13;Ball[4]:=18; Ball[5]:=15;Ball[6]:=55; Ball[7]:=48;Ball[8]:=13; Ball[9]:=64;Ball[10]:=45; m := Ball[1]; for k := 1 to 10 do if Ball[k] < m then begin m := Ball[k]; end; writeln(m); End.
| алг нач целтаб Ball[1:10] цел k, m Ball[1] := 42 Ball[2] := 25 Ball[3] := 13 Ball[4] := 18 Ball[5] := 15 Ball[6] := 55 Ball[7] := 48 Ball[8] := 13 Ball[9] := 64 Ball[10] := 45 m := Ball[1] нц для k от 1 до 10 если Ball[k] < m то m := Ball[k] все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Ball[10] = {42, 25, 13, 18, 15, 55, 48, 13, 64, 45}; int m = Ball[0]; for (int k = 0; k < 10; k++) if (Ball[k] < m) m = Ball[k]; cout << m; return 0; } | |
Программа предназначена для нахождения наименьшего количества баллов, набранных участниками школьного тура олимпиады. Проанализировав входные данные, приходим к выводу, что ответ 13.
Ответ: 13.