В одномерном массиве С ( 20 ) просуммировать первый элемент с последним, второй с...

Question

В одномерном массиве С ( 20 ) просуммировать первый элемент с последним, второй с предпоследним и т.д. Результат записать а массив В ( 10 ) и в нем найти наибольший элемент.

Answer 1

var i,m,n,u:integer;
c:array[1..20] of integer;
b:array[1..10] of integer;
begin
m:=1;
n:=20;
u:=1;
for i:=1 to 20 do
read(c[i]);
for i:=1 to 10 do
begin
b[i]:=c[m]+c[n];
m:=m+1;
n:=n-1;
end;
for i:=1 to 10 do
if b[i]>b[u] then u:=i;
write(b[u]:4);
end.

Comments

черд

---

недоделал

---

щас допишу =\

---

ок

---

жду

---

спасибо

Answer 2

Вот тебе с "дружеским" интерфесом

---

Скачать вложение Текст (TXT)

Comments

спасибо