Вопрос по информатике:
ПАСКАЛЬ
Даны три числа. Найти среди них максимальное,среднее,минимальное.
Пожаловаться
- 04.10.2017 15:02
- Информатика
- remove_red_eye 4270
- thumb_up 22
Ответы и объяснения 1
Const n=3;
var a:array [1..n] of Integer;x,q,i:Integer;b,l,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x
z:=x;
writeln(z:3:3,'-naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
l:=q;
writeln(l:3:3,'-naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-serednoe') ;
readln;
end.
var a:array [1..n] of Integer;x,q,i:Integer;b,l,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x
z:=x;
writeln(z:3:3,'-naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
l:=q;
writeln(l:3:3,'-naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-serednoe') ;
readln;
end.
Пожаловаться
- 05.10.2017 12:13
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы