программы в delphi!

[yulya_kkkkkkk]

1 заданиеДан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в которых последняя цифра нечетная, а само число кратно 3.
2. Вставить элемент со значением К после всех четных элементов, начинающихся на цифру К.
3. Переставить элементы следующим образом: a[1], a[12], a[2], a[11], a[3], a[10],a[4], a[9], a[5], a[8], a[6], a[7].
2 заданиеДан двумерный массив размером n*m, заполненный случайным образом.
1. Заменить максимальный элемент каждой строки нулем
2. Вставить после каждого столбца, содержащего максимальный элемент массива, столбец из нулей.
3. Удалить все столбцы, в которых встретится нечетный положительный элемент.
4. Поменять местами первый и предпоследний столбцы.
хотя бы что то)

[Grag]

И что ты предлагаешь? Все сделать за тебя?

[yulya_kkkkkkk]

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

[Grag]

Тогда топай в раздел "Фриланс", там помогут... за некоторую сумму денег...

[danekne]

Лови 1

program lodyr;
const nmax=25;
var
j,i,n:integer;
a:array[1..25] of integer;
b:array[1..25] of integer;
k:byte;
begin
writeln('1) laba 1');
writeln('2) laba 2');
writeln('3) laba 3');
readln(k);
writeln('wwedite razmer massiva:');
readln(n);
randomize;
for i:=1 to n do
a[i]:=trunc(random(70))-10;
writeln('ishodniy massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
case k of
1:
begin
j:=1;
for i:=1 to n do
begin
if ((a[i] mod 2)<>0) and ((a[i] mod 3)=0) then continue
else
begin
b[j]:=a[i];
j:=j+1;
end;
end;
writeln('rezultat:');
for i:=1 to j do
write(b[i],' ');
readln;
end;
end;
end.

[Grag]

writeln('wwedite razmer massiva:');
readln(n);

Я ввожу, допустим, 50... Все, кирдык программе...
А это что такое?
a[i]:=trunc(random(70))-10;
Диапазон то задан от -10 до 60 и зачем тут trunc? числа то и так целые...

Зачем же так напрягаться то? (a[i] mod 2)<>0)
Уж не проще ли написать if odd(a[i])
И это ты так проверяешь нечетность последней цифры числа???

Да и Delphi здесь что-то совсем не пахнет...

[danekne]

))) С динамикой заморачиваться не хотелось. Размер массива ограничен 25.
Random(70) дает случайное число от 0 до 70. И число может быть дробным. Чтобы диапазон расширить за 0 и появляется лишняя десятка. Ну а нечетность последней цифры - признаки делимости на два вспомните. Единственное - следует еще учесть, что ноль не является ни четными ни ничетным числом

[Grag]

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

Random(70) дает случайное число от 0 до 70. И число может быть дробным.

Random(70) дает результат в диапазоне от 0 до 69 - это раз...
Функция Random(Range:word) возвращает тип результата WORD - это два... И когда же тип WORD содержал дробные значения???

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

))) С динамикой заморачиваться не хотелось.

А какие проблемы с динамикой в Delphi Да и в Паскале никаких проблем!

[danekne]

Я не знал, какой тип возвращает рандом с диапазоном. Простой рандом возвращает вещественный тип

[RUSt88]

Grag рулит!!! +5

ну а по теме, Юль, пиши на мыло, договоримся, сделаю в лучшем виде с комментариями и пояснениями