Материал из wiki.nntc.nnov.ru
Перейти к навигации
Перейти к поиску
|
|
| (не показано 28 промежуточных версий 10 участников) |
| Строка 1: |
Строка 1: |
| | | | |
| − |
| |
| − |
| |
| − | №1
| |
| − | Выведите сведения о багаже, в котором только одна вещь, а вес ее больше среднего веса среди всех багажей
| |
| − |
| |
| − |
| |
| − |
| |
| − |
| |
| − |
| |
| − |
| |
| − |
| |
| − |
| |
| − | uses crt;
| |
| − | const n=3;
| |
| − | type pass=record
| |
| − | fio:string;
| |
| − | ves:real;
| |
| − | kol:integer; end;
| |
| − | grupp=array [1..n] of pass;
| |
| − | var g:grupp;
| |
| − | i:integer;
| |
| − | s:real;
| |
| − |
| |
| − | begin
| |
| − | clrscr;
| |
| − | s:=0;
| |
| − | for i:=1 to n do with g[i] do begin
| |
| − | writeln ('vvedite FIO passajirea');
| |
| − | readln(fio);
| |
| − | writeln('obshii ves bagaja');
| |
| − | readln(ves);
| |
| − | writeln('kol-vo vesei');
| |
| − | readln(kol);
| |
| − | s:=s+ves;
| |
| − | end;
| |
| − | s:=s/n;
| |
| − | for i:=1 to n do with g[i] do
| |
| − | if (ves>s) and (kol=1) then
| |
| − | writeln (fio,' -ves bagja- ',ves:4:2);
| |
| − | readln;
| |
| − | end.
| |
Текущая версия на 11:20, 28 апреля 2009
