Developing.ru

Код: Выделить всё

uses crt;
type tab = record
      ves:real;
      pol:boolean;
     end;
const n=3;
var tabl:array [1..n] of tab;
    sred:real;
    obsh,obsh1,k:real;
    x:array[1..n]of byte;
    i:byte;
BEGIN
 clrscr;
 for i:=1 to n do
  begin
   writeln('Ведите данные N',i,':');
   write('Вес(kg):');readln(tabl[i].ves);
   write('Пол(если мужчины введите = 1/если женщины введите = 0)');readln(x[i]);
   writeln(' ');
  end;
 for i:=1 to n do
  begin
   if x[i] = 0
   then tabl[i].pol:=false { Женщины }
   else tabl[i].pol:=true; { Мужчины }
  end;
 for i:=1 to n do
  begin
   if tabl[i].pol = false
   then begin
         obsh1:=obsh1+tabl[i].ves;
         k:=k+1;
        end;
  end;
 sred:=obsh1/k;
 for i:=1 to n do
  begin
   if tabl[i].pol = true
   then obsh:=obsh+tabl[i].ves;
  end;
 writeln('Средний вес всех Женщин:',sred:20:2);
 writeln('Обший вес всех мужчин:',obsh:20:2);
 readln;
END.