Нужно описать каждую строку!Пжлс-та

[miracle94]

а)
1.program mm;
2.uses crt;
3.var f:text;
4.a:array[0..100] of real;
5.i,j,k,n:integer;
6.begin
7.assign(f,'d:\fx.txt');
8.reset(f);
9.i:=0 ;
10.clrscr;
11.while(not(eof(f))) do
12.begin
13.read(f,a[i]);
14.inc(i);
15.end;
16.close(f);
17.k:=i-1;
18.writeln('poslednii komp faila=',a[k]:4:2);
19.readkey;
20.end.
б)
1.program mm;
2.uses crt;
3.var f:text;
4. a:array[0..100] of real;
5.i,j,k,n:integer;
6.begin
7. assign(f,'d:\fx.txt');
8. reset(f);
9.i:=0 ;
10clrscr;
11. while(not(eof(f))) do
12.begin
13. read(f,a[i]);
14. inc(i);
15. k:=k+i+1;
16.end;
17.close(f);
18.writeln('summa komp faila=',k:2);
19. readkey;
20.end.

[VIK_aka_TOR]

и как же вам программы то достались без описания?...
если о подобном просите, написать сами не смогли... что-то тут не чисто...

p.s. хочешь описания по всем трем (еще одна твоя тема) доставай кошель...

[Vanta11a]

1 - название программы
2 - используемые модули
3..5 - объявление переменных
6 - начало программы
7..19 - программа
20 - конец программы

Присоединяюсь к вышеуказанному p.s.

[miracle94]

ya dumala chto tut pomogayut horowo kak hotite

[VIK_aka_TOR]

как хотим?... хотим что бы долбозвоны не лезли учиться на программистов и не занимали то место, которое им не соответствует... особенно если это касается бюджетных мест... хотим что бы ТС сами сперва подумали прежде чем что-то спрашивать и покапались бы в интернете (в преобладающем большинстве ответ стоит лишь найти на просторах инета)... хотим что бы другие не просили расписать каждую строчку программы (не знаешь что означает - полистай учебник/книгу по программухе, погугли)...

p.s. "глупым" быть не выгодно...

накипело