Из внешнего файла, содержащего исходные данные, переписать в другой список абитуриентов, имеющих в аттестате две оценки 4

[kliuzhik]

Сообщение от Stilet

Т.е. исходного файла у тебя нет?

нет, я создавала но ответ не идет. проще с нуля

[type_Oleg]

Поищи на форуме. Здесь была куча похожих задач.
Вот так -

[GreenWizard]

тогда определи

TStudent = record
FIO: string[64];
Rating: integer;
end;

и пляши от этого... только придётся добавить режим добавления человека в файл А
вариант 2: если предположить формат "Ф И О Оценка", то можно читать строку и парсить её через Pos и т.д.

[Stilet]

проще с нуля

Ужс...ужс...ужс...
АБЦа у меня нет. Пример на классике с потолка:

const n=30000;
var fin,fout:text;
 s:string; ball:array[1..n] of integer; i,j,c,p:integer;
begin

 Assign(fin,'file.txt'); rewrite(fin);
 for i:=0 to n do begin
   Write('ФИО:'); readln(s); writeln(fin,s);
   for i:=1 to n do begin  Write(i,' тый балл:'); readln(ball[i]); writeln(fin,ball[i]); end;
 end;
 close(fin);

 Assign(fin,'file.txt'); reset(fin); Assign(fout,'file2.txt'); rewrite(fin);
 while not eof(fin) do begin
   readln(fin, s);  c:=0; p:=0;
   for i:=1 to n do begin readln(fin,ball[i]); 
    if ball[i]=4 then c:=c+1 else
     if ball[i]=5 then p:=p+1 ;
   end;
   if (c=2) and (p=(n-2)) then begin writeln(fout,s:50); for i:=1 to n do write(fout,ball[i]:10); end;
 end;
 close(fin); close(fout);

end.

Устроит идея?

[kliuzhik]

Сообщение от Stilet

Ужс...ужс...ужс...
АБЦа у меня нет. Пример на классике с потолка:

const n=30000;
var fin,fout:text;
 s:string; ball:array[1..n] of integer; i,j,c,p:integer;
begin

 Assign(fin,'file.txt'); rewrite(fin);
 for i:=0 to n do begin
   Write('ФИО:'); readln(s); writeln(fin,s);
   for i:=1 to n do begin  Write(i,' тый балл:'); readln(ball[i]); writeln(fin,ball[i]); end;
 end;
 close(fin);

 Assign(fin,'file.txt'); reset(fin); Assign(fout,'file2.txt'); rewrite(fin);
 while not eof(fin) do begin
   readln(fin, s);  c:=0; p:=0;
   for i:=1 to n do begin readln(fin,ball[i]); 
    if ball[i]=4 then c:=c+1 else
     if ball[i]=5 then p:=p+1 ;
   end;
   if (c=2) and (p=(n-2)) then begin writeln(fout,s:50); for i:=1 to n do write(fout,ball[i]:10); end;
 end;
 close(fin); close(fout);

end.

Устроит идея?

for i:=1 to n do begin Write(i,' тый балл:'); readln(ball[i]); writeln(fin,ball[i]); end;
В этой строчке ошибку выдает что нельзя изменять значение переменной цикла внутри этого цикла

[Stilet]

Вместо i напиши j.

[kliuzhik]

Сообщение от Stilet

Вместо i напиши j.

индекс находился вне границ массива...

[GreenWizard]

да простит меня Stilet, но я бы не советовал брать его код за основу, да и вообще подумать стоит самостоятельно... план работы я дал в самом начале - реализуй, ищи о файлах и т.д., а мы уже поможем при ошибках)

[Stilet]

индекс находился вне границ массива...

Тогда садись за учебники. Я тебе показал классический черновой вариант, который как правильно замечено, не стоит брать за мантру.