Массивы [pascal]

[Rulyas]

Помогите с решением задач:

1) Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 1.

2) В автопарке при обработке путевых листов получены два массива: массив S(n) пробега автомашины при n выездах и массив B(n)
соответствующего расхода бензина. Написать программу, которая вычисляет суммарный пробег и суммарный расход бензина за все выезды;

3) Имеется двухмерный массив целых чисел. Найти номер строки, для которой среднеарифметическое значение ее элементов максимально.

4) Определить максимальный элемент побочной диагонали массива.

5) В каждом столбце двухмерного массива поменять местами последний элемент и любой из минимальных.

6) Сформировать квадратную матрицу порядка n x n по заданному образцу (n — четное) (смотри рисунок):

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

[mMAg]

1) Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3.

- это что за бред? Остаток от деления на 2 может быть лишь 0 либо 1.

[Rulyas]

Сообщение от mMAg

- это что за бред? Остаток от деления на 2 может быть лишь 0 либо 1.

Извините, ошибочка вышла

[mMAg]

А массивы можно динамические использовать, или только статические?
Да, и кто и когда значения ячеек массива нам предлагает? Объявлять константный массив, или просить пользователя ввести все данные с консоли в диалоговом режиме?
Или может из файла считывать данные?

[Rulyas]

Массив полностью рандомный. С клавиатуры ничего не вводим.

[mMAg]

Сообщение от Rulyas

Помогите с решением задач:

1) Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 1.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mas : array of integer;
  masCount, i, sum : integer;
begin
  Writeln( 'masCount - ' );
  Readln( masCount );
  Setlength( mas, masCount );
  Randomize;
  for i := 0 to masCount - 1 do
    mas[i] := Random(10000);
  sum := 0;
  for i := 0 to masCount - 1 do
    if ( ( mas[i] mod 2 ) = 1 ) then
      inc( sum, mas[i] );
  //все... в переменной sum содержится ответ на поставленную задачу
end.

Сообщение от Rulyas

3) Имеется двухмерный массив целых чисел. Найти номер строки, для которой среднеарифметическое значение ее элементов максимально.

program mMAgProgforRulyasProblem3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  mas : array of array of integer;
  masRowCount, masColCount : integer;
  i, j, sum : integer;
  sAverage, nMaxAvrg : Double;
begin
  Writeln( ' Rows Count - ' );
  Readln( masRowCount );
  Writeln( ' Columns Count - ' );
  Readln( masColCount );
  for i := 0 to masColCount - 1 do
    for j := 0 to masRowCount - 1 do
      mas[i,j] := Random(10000);
  sum := 0;
  sAverage := 0;
  for i := 0 to masColCount - 1 do
  begin
    for j := 0 to masRowCount - 1 do
    begin
      inc( sum, mas[i,j] );
    end;
    if i = 0 then
    begin
      sAverage := sum / masRowCount;
      nmaxAvrg := 1;
    end
    else
      if ( sAverage < ( sum / masRowCount ) )
      then
      begin
        sAverage := ( sum / masRowCount );
        nmaxAvrg := i + 1;
      end;
    sum := 0;
  end;
end.

Как-то так, я не проверял. В nmaxAvrg содержится ответ на поставленную задачу

[StudeHt]

4) Определить максимальный элемент побочной диагонали массива.

uses crt;
const MaxN=20;
var Matr:array[1..MaxN,1..MaxN] of integer;
    i,j,n,Max:integer;
begin
  clrscr;
  repeat
    writeln('Введите размерность квадратной матрицы ');
    readln(n);
  until n<=MaxN;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          writeln('Введите элемент № ',i,' ',j);
          readln(Matr[i,j]);
        end;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(Matr[i,j]:4);
        writeln;
    end;
  Max:=Matr[1,1];
  for i:=1 to n do
    if Matr[i,n-i+1]>Max then
      Max:=Matr[i,n-i+1];
  writeln('Максимальный элемент побочной диагонали равен ',Max);
  readln;
end.

[Consol]

6) Сформировать квадратную матрицу порядка n x n по заданному образцу (n — четное) (смотри рисунок):

writeln('n');
readln(n);

for i:=1 to n do
 begin
 for j:=1 to n-i+1 do
  a[i,j]:=i;
  j:=j+1;
 while j<=n do
 begin
  a[i,j]:=0;
  j:=j+1;
 end; 
 end;

5) В каждом столбце двухмерного массива поменять местами последний элемент и любой из минимальных.

for i:=1 to n do
 begin
  min:=a[1,i];
  minj:=1;
  for j:=1  to m do
   if a[j,i]<min then
                     begin
                      min:=a[j,i];
                      minj:=j;
                     end;
   temp:=a[m,i];
   a[m,i]:=a[minj,i];
   a[minj,i]:=temp;
 end;

[Rulyas]

Проблема уже в 1 задаче: у меня нету файла SysUtils и мы его кст не учили... С 3 тоже самое.

А 5 и 6 вообще не хотят работать

[Скарам]

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