Поделитесь своими знаниями, ответьте на вопрос:
Даны два числа a и b. выведите на экран значение логического выражения , которое принимает значение true , если оба числа находятся в интервале (x , y) , и false - в противном случае. это всё выполняется в программе паскаль . , не обижу)
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
a[i]:=i+1;
if max<a[i] then max:=a[i];
writeln(a[i]);
end;
writeln('Максимальный элемент равен: ',max);
end.
Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
ReadLn (a[i]);
if max<a[i] then max:=a[i];
end;
writeln('Максимальный элемент равен: ',max);
end.