Помогите! СРОЧНО!

[Dead]

Люди добрые! Помогите мне! Преподаватель задачи дал , а я не пойму как решать! А скоро сессия! ПОМОГИТЕ! Кто че может решить, РЕШИТЕ!

Задние 1:
1. Заменить последний элемент массива, кратный 3, нулем.
2. Заменить элементы массива с четными номерами на произведение значения этого элемента и его номера.
3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = i*Di2, а если нечетный, то по формуле Ai = Di / (i-1)

Задание 2:
Дан двумерный массив размером n*m, заполненный случайным образом.
1. Заменить минимальный по модулю элемент каждого столбца нулем
2. Вставить после каждой строки, содержащей минимальное значение строку из нулей.
3. Удалить все столбцы, в которых первый элемент больше последнего

Задание 3:
Дан двумерный массив размером n*m.
1. Заменить максимальный элемент каждой строки номером столбца, в которой он находится.
2. Вставить после всех столбцов, содержащих нулевой элемент, первый столбец .
3. Удалить все строки, в которых встретится четный отрицательный элемент.
4. Поменять местами первый и предпоследний столбцы.
Кто-нибудь! Спасите меня!

 

[Dead]

Для: Dead
Это где-ж такое задают?

Эт в Авиационном универе! Ты знаешь как решать?

 

[Nusen'ka]

приветик всем)) Пожалуйста помогите найти ошибку)) или не одну!) Пожалуйста....

procedure TForm3.BitBtn1Click(Sender: TObject);
var st: string;
k,i,n,max,min: integer;
begin
n:=length (st);
max:=0; i:=1;
while i<=n do
if ( st[i]<> '')and( i=1 or(st[i-1]<>'')
then
begin
k:=1;
while (i<n)and(st[i+1]<>' ') do
i:=i+1;
if (i-k+1>max) then
begin
max:=i-k+1;
i:=i+1;
end;
end
max:=99999; i:=1;
while i<=n do
if ( st[i]<> '')and( i=1 or(st[i-1]<>'')
then
begin
k:=1;
while (i<n)and(st[i+1]<>' ') do
i:=i+1;
if (i-k+1<min) then
begin
min:=i-k+1;
i:=i+1;
end;
end;
else
i:=i+1;

end;

 

[Dead]

Нет, но могу оказать помощь при решении.
1.1. - цикл (один из: for, while, do) от последнего, определение остатка от деления (mod), и замена (myarray[x]:=0) break; при нахождении (if (условие))
остальные делаются примерно по тому-же алгоритму, за малыми изменениями с учетом конкретного условия

помог?

Вообщем да

 

[Nusen'ka]

да спасибки)))