Поиск максимального элемента
var a: array[1..20] of integer;
n, max: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементы массиваꞌ);
for var i := 1 to n do
read(a[i]);
max := a[1];
for var i := 2 to n do
if a[i] > max then
max := a[i];
writeln(ꞌМаксимум = ꞌ, max);
end.
var a: array[1..20] of integer;
n, max, n_max: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементымассиваꞌ);
for var i := 1 to n do
read(a[i]);
max := a[1]; n_max := 1;
for var i := 2 to n do
if a[i] > max then
begin
max := a[i]; n_max :=i;
end;
writeln(ꞌМаксимум = ꞌ, max);
writeln(ꞌЕго местоꞌ, n_max);
end.
Поиск минимального элемента
Var a: array[1..20] of integer;
n, n_min: integer;
begin
write('количество n=');
readln(n);
writeln('элементы массива');
for var i := 1 to n do
read(a[i]);
n_min := 1;
for var i := 2 to n do
if a[i] < a[n_min] then
n_min :=i;
writeln('минимум= ', a[n_min]);
writeln('его место ', n_min);
end.
раскрыть » / « свернуть