Верно ли, что вес самого тяжелого человека группы превышает массу самого легкого более чем в 2 раза

@almas_altay · Регистрация: 08.10.2010

Author24 — интернет-сервис помощи студентам

известен вес каждого человека из группы . верно ли , что вес самого тяжелого из них превышает массу самого легкого более чем в 2 раза ?

@EVG! · 22.11.2010, 20:55

Что-т типа такого:

Pascal

Uses CRT;
Const n=30; {задаешь число человек в группе, например, пусть будет 30}
Var Ves : array [1..n] of real; {массив, в котором хранятся веса}
     i : integer; max,min : real;
BEGIN
Clrscr;
for i:=1 to n do
 begin
  write('Vvedite ves ',i,' =');
  readln(Ves[i]);
 end;
max:=a[1];
min:=a[1];
for i:=2 to n do
 begin
  if Ves[i]>max then max:=Ves[i];
  ifVes[i]<min then min:=Ves[i];
 end;
if (max/min)>2 then writeln('verno') else writeln('neverno');
END.

@almas_altay 2 / 2 / 0 Регистрация: 08.10.2010 Сообщений: 43
		1
	Верно ли, что вес самого тяжелого человека группы превышает массу самого легкого более чем в 2 раза 22.11.2010, 20:24. Показов 2188. Ответов 1 Метки нет (Все метки) известен вес каждого человека из группы . верно ли , что вес самого тяжелого из них превышает массу самого легкого более чем в 2 раза ? 0

	22.11.2010, 20:55

Опции темы

Верно ли, что вес самого тяжелого человека группы превышает массу самого легкого более чем в 2 раза

Решение