Pascal и задания с массивами

[rump]

Здравствуйте, господа! Снова прошу вашей помощи написании 3 программ и блок-схем к ним!!! Буду очень благодарен, если вы сможете написать программы по всем представленным заданиям:

1.В одноизмеримом массиве А[1..10] обчислить сумму отрицательных элементов массива, которые имеют непарные индексы.
2.В двухизмеримом массиве А[1..10,1..4] нацти наибольший элемент и его номер.
3.В одноизмеримом массиве найти наименший элемент и поменять его местами с первым элементом массива.

Заранее благодарен всем откликнувшимся!!!!

[rump]

Ну пожалуйста хотябы одно из заданий!!!! Срочно нужно в универ!!!

[Chudo4258]

1.В одноизмеримом массиве А[1..10] обчислить сумму отрицательных элементов массива, которые имеют непарные индексы.

Что значит непарные индексы???

[Chudo4258]

2

max:=A[1,1];
imax:=1;
jmax:=1;
for i:=1 to n do
 for j:=1 to m do
  if A[i,j]>max then begin
                             max:=A[i,j];
                             imax:=i;
                             jmax:=j;
                          end;

[Chudo4258]

3

min:=A[1];
imin:=1;
for i:=1 to n do
 if A[i]<min then begin
                         A[i]:=min;
                         imin:=i;
                       end;    

K:=A[1];
A[1]:=A[imin];
A[imin]:=K;

[rump]

можно полностью весь код программы, потому как в програмировании я полный "0", а программу нужно сдать до понедельника срочно!!!! Сессия на носу!

[DM_bite]

блок-схем к ним

Это как-нибудь сами...
Относительно первой задачи: что такое непарные индексы?
А суммирование отрицательных элементов происходит так:

for i:= ... to ... do
begin
if (a[i]<0) and { условие не парности } then inc(sum ,a[i]);

Предварительно sum:= 1;

Вторая задача полностью:

Program Xdd;
var a:array [1..10, 1..4] of integer;
max,imax,jmax: integer;
begin
max:=A[1,1];
imax:=1;
jmax:=1;
for i:=1 to 10 do
 for j:=1 to 4 do
 begin
  if A[i,j]>max then begin
                             max:=A[i,j];
                             imax:=i;
                             jmax:=j;
                          end;
end;
WriteLn(max,'index=',imax,'__',jmax);
ReadLn;
end.

Третья задача полностью:

Program Xax;
var a:array [1..10] of integer;
min,imin,k: integer;
begin
min:=A[1];
imin:=1;
for i:=1 to 10 do
 begin
 if A[i]<min then begin
                         A[i]:=min;
                         imin:=i;
                       end;
 end;    
K:=A[1];
A[1]:=A[imin];
A[imin]:=K;
for i:= 1 to 10 do
 begin
WriteLn(a[i]);
end;
ReadLN;

[rump]

первое задание никто не может решить полностью?

[Chudo4258]

Обяъсни что такое непарные индексы, тогда возможно и решем.

[rump]

ну на сколько я понял это просто непарные числа=)