Var a: array of integer g,j: byte; begin randomize; for j: =1 to 5 do begin a[j]: = random(9); writeln(a[j]); end; for j: =1 to 5 do begin for g: =5 down to j do begin if a[g-1] begin k: =a[j-1]; a[g-1]: =a[g]; a[g]: =k; for l: =1 to 5; end; for j: =1 to 5 do write(a[j]) and; and; end. проверьте на ошибки, и как составить программу ' найдите наибольшее и наименьшее в однородном массиве'.
246
377
Ответы на вопрос:
Много ошибок. уже в 1 строке программы 2 ошибки: три точки вместо двух и отсутствует точка с запятой в конце строки. ну и так далее. рабочий код из вашего может быть таким: var a: array [1..5] of integer; g, j, k, l: byte; begin randomize; for j : = 1 to 5 do begin a[j] : = random(9); writeln(a[j]); end; for j : = 1 to 5-1 do begin for g : = j+1 to 5 do begin if a[j] > a[g] then begin k : = a[j]; a[j] : = a[g]; a[g] : = k; end; end; end; for j : = 1 to 5 do write(a[j]); end.
Var i, temp : integer; begin assign(output, 'output.txt'); rewrite(output); for i to 10 do begin read(temp); write(temp); end; end.файл output.txt должен быть создан.
Популярно: Информатика
-
Djdjdhjx29.11.2020 19:16
-
Аліна2345623.03.2022 01:23
-
ник312312.01.2021 14:14
-
rudenkonn5704.05.2020 12:12
-
1Sn1KeRS1115.05.2020 18:18
-
alliekw3p0144w19.09.2022 12:03
-
bbb8715.05.2023 01:06
-
Nastyalimelps1322.12.2022 04:17
-
alenalove312.01.2023 06:50
-
Настя6139109.01.2022 16:27