И́мя фа́йла — строка символов, однозначно определяющая файл в некотором пространстве имён файловой системы (ФС), обычно называемом каталогом, директорией или папкой. Имена файлов строятся по правилам, принятым в той или иной файловой и операционной системах (ОС). Многие системы позволяют назначать имена как обычным файлам, так и каталогам и специальным объектам (символическим ссылкам, блочным устройствам и т. п.).
1. var a:array[1..5,1..5] of integer; i,j,sum,min,n:Integer; begin min:=25; for i:=1 to 5 do begin Writeln('Введите места ', i,' спортсмена'); for j:=1 to 5 do Read(a[i,j]); end;
for i:=1 to 5 do begin for j:=1 to 5 do sum:=sum+a[i,j]; if sum<min then begin min:=sum; n:=i; sum:=0; end; end; Writeln(n, ' спортсмен лучший'); end.
2. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i]>(3*(n-1)/2) then k:=k+1;
Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений'); end.
3. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] = 3*(n-1) then Write(i, ' '); Write(' команд(а,ы чемпионат без поражений!'); end.
4. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do if a[i,j]<>1 then sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] > (3*(n-1))/2 then k:=k+1; Write(k,' команд выиграли более половину игр'); end.
1. var a:array[1..7] of integer; i:Integer; begin //заполнение массива a[1]:=3; a[2]:=8; a[3]:=2; a[4]:=0; a[5]:=2; a[6]:=1; a[7]:=7; //вывод массива for i:=1 to 7 do Writeln(a[i]); end.
2. var c:array[1..12] of integer; i:Integer; begin //заполнение массива for i:=1 to 12 do begin Writeln('Введите ',i,' элемент массива'); readln(c[i]); end; //вывод массива Writeln('Массив'); for i:=1 to 12 do Write(c[i],' '); end.
3.var s:array[1..15] of integer; i:Integer; begin //заполнение массива for i:=1 to 15 do s[i]:=random(40); //вывод массива Writeln('Массив'); for i:=1 to 15 do Write(s[i],' '); end.
4.var b:array[1..25] of Real; i:Integer; begin //заполнение массива b[1]:=3; b[2]:=6; for i:=3 to 25 do b[i]:=(b[i-1]+b[i-2])/i; //вывод массива Writeln('Массив'); for i:=1 to 25 do Write(b[i]:9:3); end.
И́мя фа́йла — строка символов, однозначно определяющая файл в некотором пространстве имён файловой системы (ФС), обычно называемом каталогом, директорией или папкой. Имена файлов строятся по правилам, принятым в той или иной файловой и операционной системах (ОС). Многие системы позволяют назначать имена как обычным файлам, так и каталогам и специальным объектам (символическим ссылкам, блочным устройствам и т. п.).