Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным

@CTterorist · Регистрация: 17.01.2013

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

Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным из них.

Оригинал:

Задано три різних числа, модуль кожного з яких не перевищує 10в9степени. Визначте число, яке рівне одному із заданих чисел, але не є ні мінімальним, ні максимальним із них.

@drobovik · 17.01.2013, 01:13

Pascal

uses crt;
var
a:array [1..3] of longint;
i,h:integer;
begin
randomize;
for i:=1 to 3 do
begin
a[i]:=random(100000000);
h:=0;
if abs(a[i])>h
then h:=a[i];
end;
writeln (h);
end.

Добавлено через 59 секунд
лексику паскаля почти не помню, поэтому random(1000000), а не exp)))

@CTterorist · 17.01.2013, 01:16 **[ТС]**

не правильно, вы условия правильно прочитали? Нужно с рук вводить, вот подредактировал

Pascal

var
a:array [1..3] of longint;
i,h:integer;
begin
for i:=1 to 3 do
readln(a[i]);
if abs(a[i])>h
then h:=a[i];
writeln(h);
end.

но даже так не работает, если вводить 1000 0 -1000 - выводить -1000

@drobovik · 17.01.2013, 01:20

Сообщение от CTterorist

не правильно, вы условия правильно прочитали? Нужно с рук вводить, вот подредактировал

ну, увы, я сисадмин

@uhjiok · 16.01.2014, 19:57

Pascal

program blablabla;
Var max,l,i:longint; a:array[1..3] of longint;
 
Begin
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
    if a[i]>max then begin max:=a[i]; l:=i; end;
max:=0;
for i:=1 to 3 do
    if i<>l then
       if a[i]>max then max:=a[i];
writeln(max);
End.

может так?

@Puporev · 16.01.2014, 21:05

Pascal

program blablabla;
Var a,b,c,max,min,srd:longint;
Begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
srd:=a+b+c-min-max;
writeln(srd);
readln
End.

Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным

Решение

Решение

@CTterorist 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 46
		1
	Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным 17.01.2013, 00:40. Показов 1214. Ответов 5 Метки нет (Все метки) Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным из них. Оригинал: Задано три різних числа, модуль кожного з яких не перевищує 10в9степени. Визначте число, яке рівне одному із заданих чисел, але не є ні мінімальним, ні максимальним із них. 0

@drobovik 1 / 1 / 2 Регистрация: 16.01.2013 Сообщений: 6
	17.01.2013, 01:20	4
	Сообщение от CTterorist не правильно, вы условия правильно прочитали? Нужно с рук вводить, вот подредактировал ну, увы, я сисадмин 1

Опции темы