Реферат: 10 задач с решениями программированием на Паскале

s:=a[i];a[i]:=a[i-1];a[i-1]:=s;end;

k:=0;

for i:=1 to n do

if a[i]=0 then begin s:=a[i];a[i]:=a[n-k];a[n-k]:=s;k:=k+1;end;

for i:=1 to n do write(buf,a[i]);

close(buf);close(f);

erase(f);

rename(buf,'c:\f.int');

end;

procedure w(var f:fi);

var a:integer;

begin

reset(f);

while not eof(f) do begin

read(f,a);write(a:4);end;

end;

begin

writeln('Задайте кол-во компонентов файла');readln(n);

vvod(n,f1);

sort(n,f1);

w(f1);

write;

end.

Блок схема:

Задача 10.

Условие: Записать в конец каждой строки текстового файла количество слов в этой строки.

Программа:

program S2_Z10;

type ft=text; mas=array[1..100] of string;

var f1:ft;k:integer;