Домашнее задание:
«5»: Заполнить массив из 10 элементов случайными числами в интервале [-30; 30] и найти в нем минимальный элемент и их его номер.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Минимальный a[8]=-10
Паскаль срочно ребята пожалуйсто
Ответы
Ответ дал:
2
Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max
uses crt;
const
Nmax=10;
var
m:array[1..Nmax] of integer;
i,i_min,i_max:byte;
min,max:integer;
begin
ClrScr;
randomize;
writeln('Исходный массив:');
for i:=1 to Nmax do begin
m[i]:=random(-30,30);
write(m[i],' ');
end;
max:=m[1];
min:=m[1];
i_min:=1;
i_max:=1;
for i:=1 to Nmax do begin
if m[i]>max then begin
max:=m[i];
i_max:=i;
end;
if m[i]<min then begin
min:=m[i];
i_min:=i;
end;
end;
writeln;
writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
readln;
end.
uses crt;
const
Nmax=10;
var
m:array[1..Nmax] of integer;
i,i_min,i_max:byte;
min,max:integer;
begin
ClrScr;
randomize;
writeln('Исходный массив:');
for i:=1 to Nmax do begin
m[i]:=random(-30,30);
write(m[i],' ');
end;
max:=m[1];
min:=m[1];
i_min:=1;
i_max:=1;
for i:=1 to Nmax do begin
if m[i]>max then begin
max:=m[i];
i_max:=i;
end;
if m[i]<min then begin
min:=m[i];
i_min:=i;
end;
end;
writeln;
writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
readln;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад