|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2008, 22:53 | #1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 10
|
че то не работает((!! умираю
Задать запись «Sotrudniki», состоящую из полей: Surname (фамилия), name (имя), age (возраст), date (год принятия на работу), plata (размер заработной платы), pol (пол). Создайте массив записей. Заполните его и найдите: Найти сумму заработной платы сотрудников женского пола.---------------------------------------------------------
Program q2; uses crt; type sotrudniki=record surname:string; name:string; age:integer; data:integer; plata:integer; pol:char; end; var zap: array [1..100] of sotrudniki; a,s,i:integer; begin write('a='); read(a); for i:=1 to a do begin write('vvedite familiy'); read(zap[i].surname); write('vvedite imia'); read(zap[i].name); write('vvedite vozrast'); read(zap[i].age); write('vvedite god priniatia na raboty'); read(zap[i].data); write('vvedite razmer zarabotnoi plati'); read(zap[i].plata); write('vvedite pol'); read(zap[i].pol); end; writeln('surname','name','age','pla ta','pol'); for i:=1 to a do begin write(zap[i].surname:9); write(zap[i].name:4); write(zap[i].age:3); write(zap[i].data:4); write(zap[i].plata:6); write(zap[i].pol:2); writeln; end; for i:=1 to a do begin if zap[i].pol='z'then s:=s+zap[i].plata; end; writeln('summa=',s); end. Последний раз редактировалось durachok); 25.12.2008 в 23:28. |