Отсортируйте величины в порядке убывания. 1025 байт 17 бит 524 КБ 1 КБ 0,5 МБ 2 байта 1026 бит 128 байт
...
206
449
Ответы на вопрос:
Uses crt; const n = 10; var f: text; s: string; a: array[1..n] of longint; i,j,k: integer; begin clrscr; writeln('введите имя файла текстового, если он лежит в папке с программой(входнойфайл.txt)'); writeln('или введите полное имя файла (c: .txt)'); readln(s); assign(f,s); reset(f); i: =1; repeat read(f,a[i]); i: =i+1; until i> n; write('содержимое файла: '); for i: = 1 to n do write(' ',a[i]); writeln; write('уникальные элементы: '); for i: = 1 to n do begin k: =1; for j: = 1 to n do if i< > j then if a[i]=a[j] then k: =k+1; if k=1 then write(' ',a[i]) end; readln; end. пример: введите имя файла текстового,если он лежит в папке с программой(входнойфайл.txt) или введите полное имя файла (c: .txt) 123.txt содержимое файла: 1 2 13 5 2 1 3 17 19 21 уникальные элементы: 13 5 3 17 19 21
Популярно: Информатика
-
anton4rf428.12.2020 15:40
-
ГригорийСвинатович1319.06.2020 15:02
-
kirillarhipenc104.02.2022 00:07
-
oled2307.11.2021 10:50
-
vaper401.05.2023 08:19
-
Cet3107200725.02.2022 03:48
-
KRASAVKA55514.07.2022 00:42
-
meduzakoy4kla09.02.2021 17:21
-
оуовлвдсл23.02.2022 02:20
-
GG0115525.06.2023 20:32