Program yeah; var a,b,c,d,n:integer; begin writeln('введите число.(0-юноша,1-девушка).'); readln(n); if n=0 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=110 then begin if a<=b then writeln('юноша принят.'); end; if a>b then writeln('не подходит по весу.'); if b<>110 then writeln('не подходит по росту.'); end; if n=1 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=115 then begin if a<=b then writeln('девушка принята.'); end; if a>b then writeln('не подходит по весу.'); if b<>115 then writeln('не подходит по росту.'); end; end.
var mas:array[0..9] of integer; i,max,min,k:integer; arifm:real; begin k:=0; arifm:=0; Randomize; for i:=0 to 9 do mas[i]:=Random(15); for i:=0 to 9 do write(mas[i],' '); {poisk max} max:=mas[0]; for i:=1 to 9 do if max<mas[i] then max:=mas[i]; {poisk min} min:=mas[0]; for i:=1 to 9 do if min>mas[i] then min:=mas[i]; arifm:=(max+min)/2; writeln('max: ',max); writeln('min: ',min); writeln('arifm: ',arifm:0:3); for i:=0 to 9 do if mas[i]<arifm then inc(k); writeln('k: ',k); readln; end.
var
a,b,c,d,n:integer;
begin
writeln('введите число.(0-юноша,1-девушка).');
readln(n);
if n=0 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=110 then begin
if a<=b then writeln('юноша принят.');
end;
if a>b then writeln('не подходит по весу.');
if b<>110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if a<=b then writeln('девушка принята.');
end;
if a>b then writeln('не подходит по весу.');
if b<>115 then writeln('не подходит по росту.');
end;
end.