Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Ответ оставил Гость

Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write (Ââåäèòå a[,i,]=);
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i], );
end;
writeln;
writeln (Максимальный элемент равен ,max,, его номер ,nmax);
writeln (Минимальный элемент равен ,min,, его номер , nmin);
end.