Другие языки программирования и технологии

задача по программированию, ТУРБО ПАСКАЛЬ.

10. Дан двумерный массив размером 5×5. Сформировать:а) одномерный массив из элементов заданного массива, расположенных под главной диагональю;б) одномерный массив из элементов данного массива, расположенных над побочной диагональю.11. Дан двумерный массив размером 10×10. а) все его отрицательные элементы записать в одномерный массив;б) все его четные элементы записать в один одномерный массив, а нечетные – в другой.12. Дан двумерный массив. Переставить первую строку на место последней. При этом вторую, третью, …, последнюю строки поднять.13. Дан двумерный массив из 20 столбцов. Вставить в него столбец из чисел 10 после всех четных столбцов.
Стас П
Стас П
299
Доброго времени суток.

Показываю на примере первой задачи. Предположим, массив проиндексирован от 1. Массив А исходный, а массивы В и С результирующие.

n := 5; {размерность двумерного массива}
k := 0; {индекс одномерного массива над главной диагональю}
l := 0; {индекс одномерного массива над побочной диагональю}
for i:=1 to n do {цикл по строкам}
for j:=1 to n do begin {цикл по столбцам}
{задание а) }
if i+j < 2*i then begin {элемент под главной диагональю}
k := k + 1; {вычислили индекс}
b[k] := A[i,j]; {скопировали элемент}
end;
{задание б) }
if i+j < n+1 then begin
l := l + 1; {вычислили индекс}
c[k] := A[i,j]; {скопировали элемент}
end;
end;

Вот и все. Остальные задачи сами. Подсказка. проверить четный элемент или нет можно разделив его на 2 и проверив остаток.

if A[i,j] mod 2 = 0 then элемент четный, иначе не четный.

Для третьей задачи объявляете одномерный массив с размерностью равной числу столбцов двухмерного. Копируете в него первую строку, а затем в цикле копируете 2 на место 1, 3 на место 2 и т. д. В конце из одномерного массива копируете элементы в последнюю строку двумерного.

Удачи!
ЛГ
Леонид Гельблинг
59 612
Лучший ответ
тебе уже сегодня помогли и не раз.
пора бы на тех примерах поучиться и самой порешать.
а то из брюнетки в блондинку превратишься и гидропирит не понадобится...