Одномерный и двумерный массив [Паскаль]

[Ximer]

Помогите пожалуйста с решением.

1)Напишите программу формирования массива размером 5х5 с помощью датчика случайных чисел. Замените в нём нечётныйе значения элементов последней строки. Выведите на экран исходный и изменённый массив.

2)Составте программу формирования и вывода на экран одномерного массива, состоящего из средних арифметических значений элементов каждого столбца, двумерного массива, заданого с помощью датчика случайных чисел.

[fbus]

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

[Манжосов Денис :)]

Заменить нечётный элементы на что именно?
1 задача:

program ameba;
var
  A: array [1..5, 1..5] of byte;
  x,y: byte;
begin
Randomize;
  for y := 1 to 5 do
  begin
   for x := 1 to 5 do
    begin
     a[x,y] := Random(11);
     Write(a[x,y], ' ');
    end;
  WriteLn;
  end;
  WriteLn;
  for x := 1 to 5 do
   if a[x,5] mod 2 <> 0 then a[x,5] := a[x,5] + 1;
  for y := 1 to 5 do
   begin
     for x := 1 to 5 do
         Write(a[x,y], ' ');
     WriteLn;
   end;
 ReadLn;
end.

fbus, нехорошо за такие простый задачи просить вознагрождения

[Манжосов Денис :)]

2.

program ameba2;
var
  a: array [1..5] of byte;
  b: array [1..5, 1..5] of byte;
  x,y: byte;
  Max: integer;
begin
Max := 0;
Randomize;
  for y := 1 to 5 do
  begin
   for x := 1 to 5 do
    begin
     b[x,y] := Random(11);
     Write(b[x,y], ' ');
    end;
  WriteLn;
  end;
  WriteLn;
  for x := 1 to 5 do
  begin
   for y := 1 to 5 do
    Max := Max + b[x,y];
   a[x] := Max div 5;
   WriteLn(a[x]);
  end;
 ReadLn;
end.

[DM_bite]

program xDDD;
const n=10;
var a:array [1..n,1..n] of integer;
    b:array [1..n] of real;
    i,j,sum: integer;
    begin
    randomize;
    for i:= 1 to n do
     for j:=1 to n do
      begin
      a[i,j]:= random(n);
      end;
      for j:= 1 to n do
       begin
       sum:= 0;
       for i:= 1 to n do
        begin
         inc(sum, a[i,j]);
         end;
         b[i]:= sum/n;
         end;
         for j:= 1 to n do
          begin
          for i:= 1 to n do
           begin
           Write(a[i,j],'_');
           end;
           WriteLn;
           end;
           for i:= 1 to n do
           begin
            WriteLn(b[i],'_$_');
            end;
            ReadLn;
            end.

Как-то так, если ошибки есть - поправьте, пожалуйста.

[Ximer]

Заменить на минимальное значение.

[fbus]

Манжосов Денис, нехорошо помогать лодырям которые даже не удосужились написать хотябы часть кода.