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
program p;
var p, a, b: integer;
uses crt;
begin
clrscr;
writeln('введи первую переменную');
readln(a);
writeln('введи вторую переменную');
readln(b);
if (a> =7) and (b< =52)
then writeln(' ', ((3*a)-(2*b))/7)
else writeln('что-то не так')
end.