Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/10: Рейтинг темы: голосов - 10, средняя оценка - 4.80
c4ntf1y
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 120
1

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

27.02.2013, 07:07. Просмотров 1833. Ответов 1
Метки нет (Все метки)

Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в два раза?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2013, 07:07
Ответы с готовыми решениями:

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

Есть масса каждого студента группы. Вычислить среднюю массу студента в группе
Блок-схема и программа Есть масса каждого студента группы. Вычислить среднюю...

Найти самого тяжелого человека в группе
• Известна масса каждого человека из группы в 20 человек. Найти самого тяжёлого...

Определить, на сколько рост самого высокого человека превышает рост самого низкого
В массиве хранится информация о росте 25 человек. Определить, на сколько рост...

Определить, на сколько рост самого высокого человека превышает рост самого низкого.
112) В массиве хранится информация о результатах 22 спортсменов, участвовавших...

1
True_LyaLya
23 / 23 / 16
Регистрация: 23.01.2013
Сообщений: 126
05.03.2013, 14:05 2
Лучший ответ Сообщение было отмечено c4ntf1y как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=3;
 
var
i,max,min: integer;
 mas:array[1..n] of integer;
begin
clrscr;
randomize;
 
for i:=1 to n do
    begin
    write('Масса ',i, ' человека = '); Readln(mas[i]);
    end;
 
max:=mas[1];
min:=mas[1];
 
for i:=2 to n do
begin
 If mas[i]<min Then
 min:=mas[i];
 If mas[i]>max Then
 max:=mas[i];
end;
 
If (max/2)>min Then
writeln('Масса самого тяжелого человека превышает массу самого легкого более чем в два раза')
Else
writeln('Масса самого тяжелого человека НЕ превышает массу самого легкого более чем в два раза');
end.
Добавлено через 14 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=3;
 
var
i,max,min: integer;
 mas:array[1..n] of integer;
begin
clrscr;
randomize;
 
for i:=1 to n do
    begin
    write('Масса ',i, ' человека = '); Readln(mas[i]);
    end;
 
max:=mas[1];
min:=mas[1];
 
for i:=2 to n do
begin
 If mas[i]<min Then
 min:=mas[i];
 If mas[i]>max Then
 max:=mas[i];
end;
 
If (max/2)>min Then
writeln('Масса самого тяжелого человека превышает массу самого легкого более чем в два раза')
Else
writeln('Масса самого тяжелого человека НЕ превышает массу самого легкого более чем в два раза');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2013, 14:05

На сколько рост самого высокого из них превышает рост самого низкого?
Я у вас новичок. Сам в будущем хочу стать программером. А вот и моя просьба. ...

Выяснить, верно ли, что максимальный элемент массива превышает минимальный не более чем на 25
Дан массив вещественных чисел. Выяснить: а) верно ли, что максимальный элемент...

Известна масса
Известна масса каждого из 12 предметов. Определить массу самого легкого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru