Обсуждение:Итоговая таблица 2ВМК-3

№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.