Обработка одномерных массивов данных

[vaselisa162000]

Произвольно заданы три одномерных массива с одина-
ковым числом элементов. Сформировать массив, каждый элемент кото-
рого является максимальным элементом соответственно в каждом из трех
исходных массивах. Определить местоположение максимального и ми-
нимального элементов в сформированном массиве.
Программа в Free Paslac

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[vaselisa162000]

У меня есть программа, но мне ее нужно сделать попроще

Program laba6; 
const n=50; 
type mas=array[1..n] of real; 
procedure massiv(var a: mas; c: char); 
var i: byte; 
begin 
writeln ('Массив ',c); 
for i:=1 to n do 
begin 
a[i]:=10*random; 
write (a[i]:6:2); 
end; 
writeln; 
end; 
function max(x,y,z: real):real; 
var m:real; 
begin 
if x>y then m:=x else m:=y; 
if z>m then m:=z; 
max:=m; 
end; 
var a,b,c,d:mas; 
i,imn,imx:byte; 
begin 
massiv(a,'A'); 
massiv(b,'B'); 
massiv(c,'C'); 
writeln('Массив D'); 
for i:=1 to n do 
begin 
d[i]:=max(a[i],b[i],c[i]); 
write(d[i]:6:2); 
end; 
writeln; 
imn:=1; 
imx:=1; 
for i:=2 to n do 
if d[i]<d[imn] then imn:=i 
else if d[i]>d[imx] then imx:=i; 
writeln('Максимальный d[',imx,']=',d[imx]:0:2); 
writeln('Минимальный d[',imn,']=',d[imn]:0:2); 
end.

[vaselisa162000]

Вот задание:
Одномерные массивы
Произвольно заданы три одномерных массива с одина-
ковым числом элементов. Сформировать массив, каждый элемент кото-
рого является максимальным элементом соответственно в каждом из трех
исходных массивах. Определить местоположение максимального и ми-
нимального элементов в сформированном массиве.
А вот сама программа:

Program laba6; 
const n=50; 
type mas=array[1..n] of real; 
procedure massiv(var a: mas; c: char); 
var i: byte; 
begin 
writeln ('Массив ',c); 
for i:=1 to n do 
begin 
a[i]:=10*random; 
write (a[i]:6:2); 
end; 
writeln; 
end; 
function max(x,y,z: real):real; 
var m:real; 
begin 
if x>y then m:=x else m:=y; 
if z>m then m:=z; 
max:=m; 
end; 
var a,b,c,d:mas; 
i,imn,imx:byte; 
begin 
massiv(a,'A'); 
massiv(b,'B'); 
massiv(c,'C'); 
writeln('Массив D'); 
for i:=1 to n do 
begin 
d[i]:=max(a[i],b[i],c[i]); 
write(d[i]:6:2); 
end; 
writeln; 
imn:=1; 
imx:=1; 
for i:=2 to n do 
if d[i]<d[imn] then imn:=i 
else if d[i]>d[imx] then imx:=i; 
writeln('Максимальный d[',imx,']=',d[imx]:0:2); 
writeln('Минимальный d[',imn,']=',d[imn]:0:2); 
end.

нужно без функции, попроще


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

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

нужно без функции, попроще

а с чего Вы решили, что без функции будет попроще?
Функции как раз и вводятся для того, чтобы сделать код наглядней и проще, разгрузить его от лишних действий, сделать более понятным.

Кстати, у Вас в коде есть процедура и функция.
Вас только функция не устранивает?
А убрать самостоятельно не можете, потому что код где-то в интернете нашли, а что там в коде написано, Вам не очень понятно? Угадал?


убрать функцию max() легко.
выкидывайте

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

function max(x,y,z: real):real; 
var m:real; 
begin 
if x>y then m:=x else m:=y; 
if z>m then m:=z; 
max:=m; 
end;

и вместо

for i:=1 to n do 
begin 
d[i]:=max(a[i],b[i],c[i]); 
write(d[i]:6:2); 
end;

пишите:

for i:=1 to n do 
begin
   if a[i]>b[i] then d[i]:=a[i] else d[i]:=b[i];
   if c[i]>d[i] then d[i]:=c[i]; 
   write(d[i]:6:2); 
end;