массивы, одномерные и двумерные Опции

[KiberPunk]

люди помогите пожалста. я в паскале дуб. первый раз его увидел на первой паре по программированию и препоша ничего не обьсняя сказала пишите прогу
но проблема вот в чем : 10 декабря надо здать 4 проги если нездам то выхожу на сессию и ппц я её заваливаю и мя выгоняют с первого курса помогите плиз

1)дан одномерный массив размера N вывести его элементы в обратном порядке
2)дан целочисленный одномерный массив размера N вывести вначале все его четные1|нечетные2 элементы а затем нечетные1|четные2
3)дана матрица размера 5х9 Найти суммы элементов всех её четных1|нечетных2 строк1|столбцов2
4)дана матрица размером MxN поменять местами её строки1|столбци2 так чтобы их минимальные3|максимальные4 элементы образовывали возрастающюю5|убывающюю последовательность
заранее благодарю

[KiberPunk]

да я бы с радостью не писал процедуры но это обязательное условие
кста я разобрался
у меня новый вопрос : во второй задаче мне нужно вывести все нечетные/четные а у меня получается что я вывожу только последнее чотное и последнее нечотное
вот код проги

 PROGRAM zadacha2;
 uses crt;
const N=10;
type myarray = array[1..N] of Integer;
var a : myarray;
    i,ch,nch : Integer;
Procedure Chotnoe(a:integer;var ch:integer);
begin
      if (a mod 2 =0) then ch:=a ;
end;
Procedure Nechotnoe(a:integer; var nch:integer);
begin
      if (a mod 2<>0) then nch:=a;
end;
begin
clrscr;
randomize;
for i:=1 to N do
   a[i] := Trunc(random(100));

for i:=1 to N do
   write(a[i], ' ');
writeln; writeln;

for i:=1 to N do
Chotnoe(a[i],ch);
Nechotnoe(a[i],nch);
writeln('chotnoe', ch,'nechotnoe', nch);

readln;
end.

М

Теги!!

Сообщение отредактировано: Lapp - 2.12.2008 17:29