Èíôîðìàòèêà
ïëàòà âûøå
 |
ç/ ïëàòà âûøå ñðåäíåé:
 |
|||||||
 |
 |
||||||
 |
|||||||
… … …
 |
Ïðîãðàììà Àëãîðèòì
' âûøå ñðåäíåé ç/ïëàòû àëã «âûøå ñðåäíåé ç/ïëàòû
ñls íà÷
? «ñîòðóäíèêè:» âûâîä «ñîòðóäíèêè:»
do öèêë
read Hn$, dl$, zp ÷òåíèå fm$, dl$, zp
if fm$=«» then exit do åñëè fm$=«» òî âûõîä
? fm$, dl$, zp âûâîä fm$, dl$, zp
sum = sum + zp sum
=
sum + zp
n = n + 1 n = n + 1
loop êöèêë
sr = sum/n sr
=
sum/n
? «ñðåäíÿÿ ç/ïëàòà=»; sr âûâîä («ñðåäíÿÿ 3/nëama=»;sr)
? «ç/ïëàòà âûøå ñðåäíåé:» âûâîä(«ç/ïëàòà âûøå ñðåäíåé:»)
restore zplts ïåðåçàãðóçêà äàííûõ
ns = 0 ns
= 0
for k = 1 to n îò k = 1 äî ï
read fm$, dl$, zp ÷òåíèå fm$, dl$, zp
if zp > sr then åñëè zp > sr òî
? fni$, zp âûâîä (fm$, zp)
ns = ns + 1 ns
=
ns + 1
end if êåñëè
next k êöèêë
if ns = 0 then åñëè ns = 0 òî
? «íe ïîëó÷àåò íèêòî» âûâîä («íå ïîëó÷àåò íèêòî»)
end if êåñëè
Forekc.ru
Ðåôåðàòû, äèïëîìû, êóðñîâûå, âûïóñêíûå è êâàëèôèêàöèîííûå ðàáîòû, äèññåðòàöèè, ó÷åáíèêè, ó÷åáíûå ïîñîáèÿ, ëåêöèè, ìåòîäè÷åñêèå ïîñîáèÿ è ðåêîìåíäàöèè, ïðîãðàììû è êóðñû îáó÷åíèÿ, ïóáëèêàöèè èç ïðîôèëüíûõ èçäàíèé