Найти мин, макс массива и присвоить им некоторые значения

@netiv1 · Регистрация: 12.10.2011

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

Помогите решить. Буду премного благодарен.

условие:
Задан одномерный вещественный массив с произвольным именем из N элементов. Программа должна печатать исходный массив и массив, полученный в результате выполнения требований задачи.

задание:
Найти миниальное число, присвоить его значение первому элементу мас-сива, вместо максимального числа записать число 99999

@stimo15 · 19.10.2011, 00:28

Pascal

program mass;
uses crt;
var a:array[1..10000] of real;
    i,n:integer;
    min,max:real;
begin
clrscr;
write('n=');
readln(n);
writeln('zapolnite massiv');
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:6:2,'');
end;
writeln;
min:=32767;
for i:=1 to n do
begin if a[i]<min then min:=a[i];
end;
writeln;
writeln('min element=',min:6:2);
max:=-32767;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
writeln;
writeln('max element=',max:6:2);
writeln;
for i:=1 to n do
begin
a[1]:=min;
write(a[i]:6:2,' ');
end;
max:=99999;
writeln;
write('max=',max:6:2);
readln;
end.

@netiv1 11 / 11 / 4 Регистрация: 12.10.2011 Сообщений: 42
		1
	Найти мин, макс массива и присвоить им некоторые значения 19.10.2011, 00:11. Показов 1412. Ответов 1 Метки нет (Все метки) Помогите решить. Буду премного благодарен. условие: Задан одномерный вещественный массив с произвольным именем из N элементов. Программа должна печатать исходный массив и массив, полученный в результате выполнения требований задачи. задание: Найти миниальное число, присвоить его значение первому элементу мас-сива, вместо максимального числа записать число 99999 0

	19.10.2011, 00:28

Найти мин, макс массива и присвоить им некоторые значения

Решение