Бір өлшемді массив есептеу [жабық]

Question

1) Кез- келген бір өлшемді А(10) массивінің оң элементтерін екі есе кемітіңдер,ал теріс элементтері болса,онда оларды индекстерінің мәнімен ауыстырыңдар.

2) А,В масивтері берілген алдын ала А массивін өсуі,В массивінің кемуі бойынша реттеп алып,2 массивтің қосындысын табыңдар.

3) Масивтің берілген К санына еселік болатын элементтерінің көбейтіндісін табыңдар.

көмектесіндерші алдын ала рахмет!

Answer 1

1 -де қате: теріс элементтерін 2-ге бөледі жөне массив элементі 0-ге тең болған жағдайда да оны индексімен ауыстырып жібереді.Дұрысы:

for i:=1 to 10 do
begin
if a[i] > 0 then a[i] := a[i] / 2 else if a[i]<0 then a[i] = i;
end

Answer 2

1)

  for i:=1 to 10 do
  begin
    if a[i] < 0 then a[i] := a[i] / 2 else a[i] = i;
  end

2) Кодты тексерусіз осында жазып отқандықтан. Жәй түсіндіріп өтейін. Массивті реттеу үшін мынандай цикл пайдаланасың:

for j:=1 to N-1 do
     for i:=1 to N-j do
        if M[i] > M[i+1] then
              swap(M[i],M[i+1])

Осы цикл арқылы екі массивті де рейттейсің де, екі массивті қосу циклін жасайсың:

  A := ... // реттелген массив
  B := ... // реттелген массив
  C := ... // массивтер қосындысын сақтайтын массив
  length := Length(A) // массив ұзындығы
  
  for i:=1 to length do
  begin
    C[i] := A[i] + B[i];
  end

3)

  M := 1
  for i:=1 to Length(a) do
  begin
    if a[i] mod K = 0 then M := M * a[i];
  end

Answer 3

X және Y  сөздерінде бірдей орында тұрған бірдей әріптердін алып тастайтын програма құрыңыз,