одномерные массивы. (pascal)

[Диляра - новичок]

1. Найти сумму первых пяти элементов одномерного массива.
2. Найти номера всех элементов с максимальным значением.
Заранее большое спасибо.

[andrewpalkin]

Сообщение от Диляра - новичок

1. Найти сумму первых пяти элементов одномерного массива.
2. Найти номера всех элементов с максимальным значением.
Заранее большое спасибо.

А что именно не получается ???

[Shift_sk]

1

var a:array[1..1000] of longint;
    n,i,s:integer;
begin

read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to 5 do
s:=s+a[i];
write(s);
end.

[Диляра - новичок]

Я вообще не понимаю как выполнять данную работу, а мне нужно составить программу. Требуется ваша помощь.

[Shift_sk]

2

var a:array[1..1000] of longint;
    n,i,p,max:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then begin max:=a[i]; p:=i;     end;
write(p);
end.

[Диляра - новичок]

спасибо большое вам)

[Диляра - новичок]

двумерные массивы.(pascal)
1. Найти сумму элементов в каждом столбце двумерного массива.
2. Последний отрицательный элемент каждого столбца заменить нулем.
можете с этими задачами помочь?

[Mad_Cat]

2Shift_sk
предположим не

write(p);

а

for i:=1 to n do
  if a[i]=a[p] then write(i:4);

так как

Найти номера всех элементов с максимальным значением.