Дан одномерный массив размером 25, диапозон значений заданный рандомом и равен 250, найти минимальное занчение для нечетных индексов, максимальное для четных
Program test; const n = 25; var i,min,max:integer; m:array [1..n] of integer; begin randomize; min:=251; max:=-1; for i:=1 to n do m[i]:=random(250); for i:=1 to n do if i mod 2 = 0 then if m[i]<min then min:=m[i] else if m[i]>max then max:=m[i]; writeln(min); writeln(max); end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c:real; Read(a,b,c); // не вводить одинаковых! if a>b then if a>c then // a > [b,c] if b>c then Writeln('Среднее - второе число') else Writeln('Среднее - третье число') else Writeln('Среднее - первое число') else if b>c then // b > [a,c] if a>c then Writeln('Среднее - первое число') else Writeln('Среднее - третье число') else Writeln('Среднее - второе число') end.
По моему так: program p; var a,b,c:integer; begin writeln('первое число:'); readln(a); writeln('второе число:'); readln(b); writeln('третие число:'); readln(c); if (a>b) and (a>c) then writeln('Первое число является наибольшим'); if (a>b) and (a<c) or (a<b) and (a>c) then writeln('Первое число является средним'); if (a<b) and (a<c) then writeln('Первое число является наимешим'); if (b>a) and (b>c) then writeln('Второе число является наибольшим'); if (b>a) and (b<c) or (b<a) and (b>c) then writeln('Второе число является средним'); if (b<a) and (b<c) then writeln('Второе число является наимешим'); if (c>b) and (c>a) then writeln('Третие число является наибольшим'); if (c>b) and (c<a) or (c<b) and (c>a) then writeln('Третие число является средним'); if (c<b) and (c<a) then writeln('Третие число является наимешим'); end.
const n = 25;
var i,min,max:integer;
m:array [1..n] of integer;
begin
randomize;
min:=251;
max:=-1;
for i:=1 to n do
m[i]:=random(250);
for i:=1 to n do
if i mod 2 = 0
then if m[i]<min then min:=m[i]
else if m[i]>max then max:=m[i];
writeln(min);
writeln(max);
end.