Дан одномерный массив. Отыскать функцию максимум+минимум. Поочередный переход с данного
Дан одномерный массив. Отыскать функцию максимум+минимум. Последовательный переход с данного по заключительный элемент. (Максимум) С первого по данный пользователем (Минимум)
Написать программку на php/pascal
Помогите пожалуйста, люди добросердечные.
1 ответ
Степан Трапанов
Var n,m:integer;b:boolean;
function fminmax(k:integer;d:boolean):integer;
var a:array[1..30] of integer;j,max,min:integer;
begin
for j:= 1 to 30 do begin a[j]:= random(100)-50; write(a[j]:4);end;
max:= -100;min:=100;
if b = true then
for j:= 1 to k do begin
if max lt; a[j] then max := a[j];fminmax:=max;end
else
for j:= n to 30 do begin
if min gt; a[j] then min := a[j];
fminmax:=min;end;
end;
begin
write ('Введите число lt; 25');Read(n);
write ('Определять max(true -да, false- нет)');Read(b);
m:= fminmax(n,b);
writeln;
if b = true then write('max = ',m)
else
write('min = ',m);end.
function fminmax(k:integer;d:boolean):integer;
var a:array[1..30] of integer;j,max,min:integer;
begin
for j:= 1 to 30 do begin a[j]:= random(100)-50; write(a[j]:4);end;
max:= -100;min:=100;
if b = true then
for j:= 1 to k do begin
if max lt; a[j] then max := a[j];fminmax:=max;end
else
for j:= n to 30 do begin
if min gt; a[j] then min := a[j];
fminmax:=min;end;
end;
begin
write ('Введите число lt; 25');Read(n);
write ('Определять max(true -да, false- нет)');Read(b);
m:= fminmax(n,b);
writeln;
if b = true then write('max = ',m)
else
write('min = ',m);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов