pagalbos pascal

1. Nuskaityti ir suformuoti masyvus .

2. Irasyti savo ir failo gale butu autografas .

8 9 10 10 6 Audrius

7 8 9 9 7 Gytis

6 7 8 8 8 Saulius

5 6 7 7 9 Gintaras

4 5 6 6 10 Renata

5 6 5 7 9 Indrė

6 7 7 8 8 Eglė

7 8 9 9 7 Danas

8 9 10 10 6 Jonas

9 10 10 10 10 Rita

10 9 8 7 5 Martynas

10 9 5 8 6 Artūras

5 6 7 8 10 Benjaminas

6 7 8 9 9 Andrius

8 7 6 5 3 Aistė

9 8 7 6 4 Tomas

7 8 9 10 8 Aurelijus

8 7 6 5 3 Eglė

Ekonomika AlgoritmavimasInformatika Sociologija Filosofija

Program F_sk_ras1;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var i,j:byte;

dal:array[1..5] of string[11];

vrd:array[1..10] of string[8];

paz:array[1..10,1..5] of byte;

Fsk, Fras:text; {failu aprasai}

Begin

Assign(Fsk,'Pav_Paz.dat'); {loginis failo vardas Fsk susiejamas su realiu failu Pav_Paz.dat}

Assign(Fras,'Rezultatai.dat'); {loginis failo vardas Fras susiejamas su realiu failu Rezultatai.dat}

Reset(Fsk); {Fsk failas atidaromas skaitymui}

For i:=1 to 5 do

Read(Fsk,dal); {Cikle is pirmos eilutes skaito teksta po 11 simboliu}

Readln(Fsk); {pakeičia eilute faile}

For i:=1 to 10 do

Begin

Read(Fsk,vrd); {cikle is eilutes pradzios skaito 8 simbolius }

For j:=1 to 5 do

Read(Fsk,paz[i,j]);{is tos pacios eilutes ciklu nuskaito 5 skaicius}

Readln(Fsk) {pakeičia eilute faile}

End;

Close(Fsk); {Pasibaigus ciklui skaitymas baigtas, todel uzdaromas failas}

Rewrite(Fras); {Fras failas atidaromas rasymui}

For i:=1 to 10 do

Begin

For j:=1 to 5 do

Write(Fras,paz[i,j],' '); {ciklu vienoje eiluteje surasomi pazymiai su tarpais}

Writeln(Fras,vrd); {eilutes gale irasomas studento vardas ir pakeiciama eilute}

End;

For j:=1 to 5 do

Write(Fras,dal[j]); {paskutineje eiluteje surasomi dalykai}

Close(Fras); {ciklui pasibaigus uždaromas rasymo failas- fiziskai irasomas failo pabaigos simbolis}

End.