2 задачи про массивы Опции

[I_am_HATED]

1. Нахождение максимального значения в массиве среди всех чётных чисел. Длина массива вводится с клавиатуры. Печатать элементы массивы по 9 штук, по формату :6. Тип обрабатываемых данных - целые.

2. Заполнить двумерный массив A(MxN) элементов символами из одномерного массива В (длиной не более 256 элементов) "змейкой" от конца к началу - сперва N-ю строку справа налево, затем N-1-ю слева направо и т.д. Массив B предварительно заполняется из входного текстового файла. Оба массива распечатать. Предельные значения числа строк 16, столбцов 16. Тип обрабатываемых данных - символьный.

Помогите решить, я что-то путаюсь в них..

[Krjuger]

Все нашел,ошибку,volvo удали пост пожалуста этот,а то он пустой а я не могу,хотя вот рабочий вариант)

uses crt;
const m=5;n=5;z=25;
var 
    i, j, d, k, i2 :integer;
    b:array[1..z] of integer;
    a:array[1..n,1..m] of integer;{сори тут помарочка была}
begin
  clrscr;
  randomize;
  for i:=1 to z do
    begin
      b[i]:=random(100);
      write(b[i],' ');
    end;
  readln;
d:=-1;
i2:=m;
k:=1;
for i:=n downto 1 do begin
 for j:=m downto 1 do begin
      A[i,i2]:=b[k];
      k:=k+1;
      inc(i2,d);
  end;
 i2:=i2-d;{вот он корень зла где крылся}
 d:=d*(-1);
end;
readln;
end.
 

Сообщение отредактировано: Krjuger - 29.05.2009 1:18