Срочно и очень важно!!! Время поджимает!!!Помогите решить задачу в Паскале на зарплату

[lenok113]

ВАЖНО И ОЧЕНЬ СРОЧНО!!!!! Пожалуйста!! Помогите!!!
Составить блок схему алгоритма и программу обработки ведомости на зарплату.Программа должна обеспечивать ввод фамилий, табельных номеров, номеров участков и зарплаты работников.
Табельные номера следуют в произвольном порядке и имеют значения от 1 до N, номера участков также следуют в произвольном порядке и имеют значения от 1 до К.
Фамилии и зарплата работников вводятся произвольно.
N=9, K=3 N – численность работников, K – количество участков.
Предусмотреть невозможность ввода номера участка, большего K.
Определить среднее и минимальное значение зарплаты в коллективе.Вывести на печать массивы ведомости,среднее и минимальное значение зарплаты.


ПОМОГИТЕ!!!!!!:

[lenok113]

Пмогите..кто-нибудь.......

[lenok113]

проверьте:


program asr;
uses crt;

type t=record fam:string;tab,nu:integer;zar:real;

end;

type t1 = array[1..50] of t;

var baza:t;ved:t1;i,min,n,zar,s:integer ;

begin
clrscr;
writeln ('vvedite kol-vo rabotnikov');

readln;
writeln(' vvedite kol-vo uchastkov');
for i:=1 to n do
begin

writeln (' vvedite familiy,tabelnyi nomer,nomer uchastka,zarplatu');
readln(ved[i].fam,ved[i].nu,ved[i].zar);

end;
writeln('isxodnaya vedomost');
for i:=1 to n do begin
min:=zar[i] ;

if zar[i]<= min then min:=zar[i];
end;
s:=0;

for i:=1 to n do do begin
s:=s+zar[i] ;
s:=s/9;

end;

writeln ('min'; min:8:2);

writeln('s';s:8:2);

readln;
end.

[НЕ_АЙС]

Постучись в аську.

[lenok113]

напиши мне ее

[НЕ_АЙС]

302846176 А вообще под ником у меня цветочек, там аська и прописана)

[vvviperrr]

надо писать НЕ "Срочно проверьте задачу в Паскале на зарплату", а "Срочно проверьте задачу в Паскале за зарплату"

[lenok113]

Спасибо тебе Вовка (НЕ_АЙС)...выручил.....так что народ обращаемся к Вовке....он классный программист!!!!!