помогите с программой в Turbo Pascal [СРОЧНО]

[juktuf]

Двумерные массивы

Вывести в строку все нечетные элементы.

[KrUGER]

var

	a:array [1..30,1..30] of integer;
    i,m,j:integer;

begin

	randomize;

	for i:=1 to 30 do
	   for j:=1 to 30 do
		    a[i,j]:=random(8);

	for i:=1 to 30 do
	  for j:=1 to 30 do

  		begin

  			write (a[i,j]:2);
  			if j mod 30 = 0 then writeln;

  		end;

  		writeln('-----------------------------------------------');

	for i:=1 to 30 do
	  for j:=1 to 30 do

        begin

          if (a[i,j] mod 2 <> 0) then write(a[i,j]:3);

        end;

end.

Если я конечно условия правильно понял...

[juktuf]

KrUGER спасибо !

тему можно закрыть !

[iwanakatta]

Помогите решить задачу

За решение четырех задач студент получил оценки (от 1 до 5). Составьте программу, которая определит среднее значение оценок, полученных студентом за задачи.

Необходимо использовать циклический алгоритм

Я даже тип данных, какой надо выставить не знаю.

[D_Master]

a+b+c+d / 4, не?