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

@Миледи · Регистрация: 28.04.2011

Студворк — интернет-сервис помощи студентам

Kodzaev · 14.07.2011, 20:06

Pascal

uses crt;
type book=record
rab:string;
st:integer;
okl:integer;
end;
var a:array[1..10] of book;
i,n,S:integer;
Begin clrscr;
write('Kolichestvo rabotnikov: ');readln(n);
for i:=1 to n do
begin
write('Imya rabotnika: ');readln(a[i].rab);
write('Stazh:          ');readln(a[i].st);
write('Oklad:          ');readln(a[i].okl);
end;
S:=0;
for i:=1 to n do
S:=S+a[i].okl;
writeln('Itogovaya summa vseh okladov: ',S);
readln
end.

@Миледи 0 / 0 / 0 Регистрация: 28.04.2011 Сообщений: 16
		1
	Напечатать список работников предприятия с указанием стажа их работы и оклада, а также итоговую сумму их окладов. 14.07.2011, 19:53. Показов 1546. Ответов 1 Метки нет (Все метки) Напечатать список работников предприятия с указанием стажа их работы и оклада, а также итоговую сумму их окладов. 0

	14.07.2011, 20:06

Опции темы

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

Решение