Найти максимальный и минимальный элементы одномерного массива.

@raniyaa116 · Регистрация: 10.12.2019

Author24 — интернет-сервис помощи студентам

Задание №1.
Составьте программу нахождения максимального и минимального значения
одномерного массива К(N) (элементы массива подсчитываются по формуле
К(N)=sin(N)*N). Сформируйте новый массив В(N), в котором поменяйте
местами максимальный и минимальный элемент массива К(N).

Pascal

PROGRAM ex2p39;
var
K,B:array[1..256] of real;
i,n,nmax,nmin:integer;
max,min,x:real;
BEGIN
writeln('Введите значение массива: ');
read(i);
writeln('Массив K[N] : ');
for n :=1 to i do
begin
K[N] :=sin(n)*n;
B[N] :=K[N];
write (K[n]:0:2, ' ');
end;
min :=B[1];
max :=B[1];
for n :=1 to i do
begin
if B[n]>max
then begin
max :=B[n];
nmax :=n;
end
else if B[n]<min
then begin
min :=B[n];
nmin :=n;
end;
end;
x :=min;
B[nmin] :=max;
B[nmax] :=x;
writeln;
writeln('Массив B[N] : ');
for n :=1 to i do write(B[n]:0:2, ' ');
END.

(в ответе в массиве b[n] выводит также как и в k[n] не выводит минимум и максимум, как быть ?)

@JuriiMW · 21.12.2020, 04:48

Сообщение от raniyaa116

не выводит минимум и максимум

А он и не должен этого делать.
Он делает то, что сказано:

Сообщение от raniyaa116

поменяйте
местами максимальный и минимальный элемент массива

@JuriiMW 5077 / 2649 / 2349 Регистрация: 10.12.2014 Сообщений: 10,026
	21.12.2020, 04:48	2
	Сообщение от raniyaa116 не выводит минимум и максимум А он и не должен этого делать. Он делает то, что сказано: Сообщение от raniyaa116 поменяйте местами максимальный и минимальный элемент массива 0

Опции темы