Автор Ђатьяна Мухина задал вопрос в разделе Другие языки и технологии
Напишите программу поиска минимального или максимального элемента в массиве. Pascal и получил лучший ответ
Ответ от
сначала min и max присваиваете первый элемент массива (под нулевым индексом) затем идете по массиву, если элемент больше max то max присваиваете данный элемент, если меньше min то данный элемент присваиваете min
P.S.: ну или если уж совсем ниче не понятно пишите в личку
Никита Соколов, долбоёб, девченка и так не может min и max найти, а ты ей еще пичкаешь! И вообще такой бред написал честно говоря, твоя прога не правильно будет работать даже если скомпилится!!
Ответ от Александр[гуру]
возмитте готовую
возмитте готовую
Ответ от Zhenek[гуру]
сначала min и max присваиваете первый элемент массива (под нулевым индексом) затем идете по массиву, если элемент больше max то max присваиваете данный элемент, если меньше min то данный элемент присваиваете min
P.S.: ну или если уж совсем ниче не понятно пишите в личку
сначала min и max присваиваете первый элемент массива (под нулевым индексом) затем идете по массиву, если элемент больше max то max присваиваете данный элемент, если меньше min то данный элемент присваиваете min
P.S.: ну или если уж совсем ниче не понятно пишите в личку
Ответ от Thesn[гуру]
Нарыл в инете, не проверял особо.
program Max_search;
uses crt;
const m=50;
type vector=array[1..m] of integer;
var a:vector;
min,imin,i,imax,max,p:integer;
Begin
clrscr;
randomize;
writeln('Создание массива и его вывод');
for i:=1 to m do
begin
p:=random(50);
a [ i ]:=p-30;
write(a[ i ]:4);
end;
max:=a[1];
for i:=2 to m do
if max < a[ i ] then
begin
min:=a[ i ];
imin:=i
end;
writeln;
writeln('значение максимального=',max);
writeln('Индекс максимального=',imax);
writeln('значение минимального=',min);
writeln('Индекс минимального=',imin);
writeln('Для завершения работы нажмите <enter>');
readln
END.
Нарыл в инете, не проверял особо.
program Max_search;
uses crt;
const m=50;
type vector=array[1..m] of integer;
var a:vector;
min,imin,i,imax,max,p:integer;
Begin
clrscr;
randomize;
writeln('Создание массива и его вывод');
for i:=1 to m do
begin
p:=random(50);
a [ i ]:=p-30;
write(a[ i ]:4);
end;
max:=a[1];
for i:=2 to m do
if max < a[ i ] then
begin
min:=a[ i ];
imin:=i
end;
writeln;
writeln('значение максимального=',max);
writeln('Индекс максимального=',imax);
writeln('значение минимального=',min);
writeln('Индекс минимального=',imin);
writeln('Для завершения работы нажмите <enter>');
readln
END.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Напишите программу поиска минимального или максимального элемента в массиве. Pascal