Delphi: решить 4 задачи на массивы

[Sianessa]

И, так, требуется решить 4 задачи:

1. Ввести массив A(N). Ввести произвольное число L. Четные элементы массива большие L уменьшить на 5. Вывести на экран исходный и преобразованный массивы.

2. Заполнить массив A(N) четными числами натурального ряда(2,4,6…) до тех пор, пока их сумма не станет больше произвольного числа М. Найти произведение членов ряда и их число. Вывести сам массив, результат произведения членов ряда и их число (количество).

3. Ввести целочисленный массив A(N). Найти минимальное значение
среди элементов с четными номерами и максимальное значение среди элементов с нечетными номерами. Вывести сам массив, и значения которые требуется найти.

4. Ввести матрицу A(N, M). Пронормировать ее, т. е. каждый элемент разделить на максимальный. Вывести исходную и преобразованную матрицы. Указать координаты (№ строки и столбца) максимального элемента.

P.S. вывод данных желателен через RichEdit

[Hollander]

так а в чем проблема? что ты не можешь понять?

[Sianessa]

У меня не получается нормально вывести оба массива...

[XeN0N]

for i:=1 to N DO
BEGIN
WRITE(A[i],' ');
END
WRITELN;
for i:=1 to N DO
BEGIN
WRITE(B[i],' ');
END

[Sianessa]

Вы не могли бы хотя бы одну задачу ОТ и ДО прописать, чтобы я поняла в чём мои ошибки...?

[werser]

var a:array [1..10] of integer;
i,l,n:integer;
begin
randomize;
n:=strtoint(Edit1.Text);
l:=strtoint(Edit2.Text);
for i:=1 to n do
a[i]:=striggrid.cells[1,i];

for i:=1 to n do
begin
if ((i)mod(2)=0)and(a[i]>L) then a[i]:=a[i]-5;
end;

for i:=1 to n do
stringgrid1.cells[1,i]:=a[i];
end;

[werser]

Это первая

[Sianessa]

werser, вижу что первая, но объясните, какие элементы должны на форме быть, я тут вижу только 2 текстовых поля. И ещё, что такое striggrid и где его брать?

[werser]

var a:array [1..10000] of integer;
i,m,d,z:integer;
begin
m:=strtoint(Edit1.Text);
i:=0;
z:=0;

while d<=m do
begin
i:=i+1;
z:=z+2;
a[i]:=z;
d:=d*a[i];
end;

end;

[werser]

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

werser, вижу что первая, но объясните, какие элементы должны на форме быть, я тут вижу только 2 текстовых поля. И ещё, что такое striggrid и где его брать?

Вторая вкладка. Слева 5 или 6 компонент. Это таблица в ней нужно свойство фикседсолс и фикседроус поставить по 0 и сделать 1 строку

Кнопка еще должна быть на какой этот текст будет написан