1. найти максимальное значение среди всех элементов массива. 2. найти минимальное значение среди всех элементов массива. 3. найти минимальное и максимальное значения среди всех элементов массива. (паскаль)
//Pascal var A: array [1..5] of integer; min, max: integer; i: byte; begin writeln('Заполнение массива.'); for i := 1 to 5 do begin write('А[', i, '] = '); readln(A[i]); end; writeln; Max := A[1]; Min := A[1]; for i := 1 to 5 do begin if Max < A[i] then Max := A[i]; if Min > A[i] then Min := A[i]; end; writeln('Максимальное = ', Max); writeln('Минимальное = ', Min); writeln('Максимальное и минимальное = ', Max, ' и ',Min); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadlnString('Введите массив').ToIntegers;
Writeln('Максимальное значение: ', a.Max);
Writeln('Минимальное значение: ', a.Min);
end.
var
A: array [1..5] of integer;
min, max: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then Max := A[i];
if Min > A[i] then Min := A[i];
end;
writeln('Максимальное = ', Max);
writeln('Минимальное = ', Min);
writeln('Максимальное и минимальное = ', Max, ' и ',Min);
end.