Паскаль, три задачи на массивы

[Omega477]

Паскаль, три задачи на массивы

Товарищи, подскажите пожалуйста код нескольких программ на паскале:
1. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел, после чего считает среднее арифметическое всех нечетных элементов. Массив и результат вывести на экран.
2. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел. Затем необходимо для каждой строчки определить количество четных элементов, которые меньше, чем элемент этой строки на побочной диагонали. Массив и значение для каждой строчки вывести на экран.
3. Заполнить одномерный массив целых чисел псевдослучайными числами, отобразить его на экране. Отсортировать полученный одномерный массив методом прямого обмена ("пузырьком") по возрастанию, используя в качестве циклов только цикл "while". отобразить отсортированный массив на экране.
Заранее спасибо.

 

[Vladimir_S]

Товарищи, подскажите пожалуйста код нескольких программ на паскале:

Пожалуйста.

1. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел, после чего считает среднее арифметическое всех нечетных элементов. Массив и результат вывести на экран.

VAR
 A:Array[1..4,1..3] of Integer;
 i,j,N:Integer;
 Med:Real;
BEGIN
 Randomize;
 Med:=0;
 For i:=1 to 4 do
  begin
   For j:=1 to 3 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:6);
     If (A[i,j] mod 2)<>0 then
      begin
       Inc(N);
       Med:=Med+A[i,j];
      end;
    end;
   Writeln;
  end;
 Writeln;
 Med:=Med/N;
 Writeln('Arithmetical mean of odd elements is ',Med:0:3);
 Readln
END.

2. Написать программу, которая создает с помощью генератора псевдослучайных чисел двумерный массив 4x3 из целых чисел. Затем необходимо для каждой строчки определить количество четных элементов, которые меньше, чем элемент этой строки на побочной диагонали. Массив и значение для каждой строчки вывести на экран.

Задача принципиально не может быть решена, поскольку диагоналями (главной и побочной) обладают только квадратные матрицы. У неквадратных (прямоугольных) матриц понятия "диагональ" не существует.

3. Заполнить одномерный массив целых чисел псевдослучайными числами, отобразить его на экране. Отсортировать полученный одномерный массив методом прямого обмена ("пузырьком") по возрастанию, используя в качестве циклов только цикл "while". отобразить отсортированный массив на экране.

CONST
 N=10;
VAR
 A:Array[1..N] of Integer;
 i,j,D:Integer;
BEGIN
 Randomize;

 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:6);
  end;
 Writeln;
 i:=1;
 While i<N do
  begin
   j:=1;
   While j<=N-i do
    begin
     If A[j]>A[j+1] then
      begin
       D:=A[j];
       A[j]:=A[j+1];
       A[j+1]:=D;
      end;
     Inc(j);
    end;
   Inc(i);
  end;
 For i:=1 to N do Write(A[i]:6);
 Readln
END.

Заранее спасибо.

Не за что.