Обсуждение:Итоговая таблица 2ВМК-3: различия между версиями
Перейти к навигации
Перейти к поиску
(РЕШЕНИЯ) |
|||
Строка 1: | Строка 1: | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
Версия 17:59, 7 апреля 2008
№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.