Задачи на одномерные и двухмерные массивы

[Drug1011]

Помогите написать программу, у самой не получается.
Одномерный массив :
1. Дан одномерный массив определить индекс минимального элемента и вывести индекс и сам элемент.
2. Дан одномерный массив подсчитать сколько раз встретится количество единиц.
3. Найти количетсво элементов в каждой строке. : количество элементов в каждой строчке хранить в одномерном массиве.
Двумерный массив:
4. Найти сумму и количество элементов заданным условием. : элементы каждого солбца кратны 1 или 2 . сколько таких элементов ( сумма)
5. Изменить массив в соответствии с заданием. Отрицательный последующий элемент каждого стобца заменить.

[grom333]

1.

var
   A:array[1..n]of integer;
   max,i:integer;
begin
      for i:=1 to 8 do
        A[i]:=integer(random(20))-n;
       max:=A[1];
       for i:=1 to n do
           if A[i]> max then
                                  max:=i;
        writeln(max);

Как вывести само число из индекса массива, попробуй сам додумать. Некогда, если не решат, то попозже напишу все решения.

[weech]

grom333, Вы точно писали код к первой задаче?..

for i:=1 to n do
   if a[i]<min then
    begin
      min:=a[i];
      d:=i;
    end;
write(a[i]:4,i);

[Hacker19_90]

for i:=1 to n do
   if a[i]<min then
    begin
      min:=a[i];
      d:=i;
    end;
write(a[i]:4,i);

Зачем же так всё сложно?
Вот так не проще

min := 1;
for i := 2 to n do
    if mas[i] < mas[min] then min := i;
Writeln ('Минимальный элемент = ', mas[min], ' его индекс ', min);

[McFrey]

2)

for i:=1 to n do
if a[i]=1 then kol:=kol+1

....если я правильно понял задание

[Hacker19_90]

3. Найти количетсво элементов в каждой строке. : количество элементов в каждой строчке хранить в одномерном массиве.

Ну и что это?
Кто нить объясните мне суть этого задания!

[McFrey]

Hacker19_90, аналогично....одномерный массив тобишь одна строка же=D....такие задачки ломают мозг

[Drug1011]

остальные задачи. пробовали решить? у меня получилось только 3ю задачу решить. эти массивы жесть

[Hacker19_90]

остальные задачи. пробовали решить?

А вы пробовали выкладывать нормальные задания?
допустим

5. Изменить массив в соответствии с заданием. Отрицательный последующий элемент каждого стобца заменить.

На что менять - то?
Да и вообще если вы говорите что у вас получилось решить 3 задачу (задание которой вообще не понятно), значит вы пробовали решать другие задачи!
Так что же у вас не получилось?

[Drug1011]

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

А вы пробовали выкладывать нормальные задания?
допустим

На что менять - то?
Да и вообще если вы говорите что у вас получилось решить 3 задачу (задание которой вообще не понятно), значит вы пробовали решать другие задачи!
Так что же у вас не получилось?

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