Программа для определения требуемых величин на побочной диагонали двумерного массива.

+ 0 -

Tanyakravchenk1

15 июля 2014 г., 1:33:45 (9 лет назад)

Вот мой ответ в догонку (зря писал что ли).
Компилятор - Pascal ABC.NET

+ 0 -

Provodnik2011

15 июля 2014 г., 2:11:34 (9 лет назад)

const
  n = 30;
var
 D: array[1..n, 1..n] of integer;
  e, min, sump, min2, kol2n, sum1p: integer;
  i, j: integer;

begin
  Randomize;
  min := 1000;
  sump := 0;
  min2 := 1000;
  kol2n := 0;
  sum1p := 0;
  for i := 1 to n do
    for j := 1 to n do
    begin
      e := Random(1000) - 500;
      if min > e then min := e;
      if e > 0 then
      begin
        sump := sump + e;
        if (e mod 2) <> 0 then sum1p := sum1p + e
      end;
      if (e mod 2) = 0 then
      begin
        if min2 > e then min2 := e;
        if e < 0 then kol2n := kol2n + 1
      end;
      D[i, j] := e
    end;
  writeln('Минимальный элемент:                       ', min:6);
  writeln('Сумма положительных элементов:             ', sump:6);
  writeln('Минимальный четный элемент:                ', min2:6);
  writeln('Количество отрицательных четных элементов: ', kol2n:6);
  writeln('Сумма положительных нечетных элементов:    ', sum1p:6)
end.

Тестовое решение:

Минимальный элемент:                                        -499
Сумма положительных элементов:                   115454
Минимальный четный элемент:                            -494
Количество отрицательных четных элементов:      226
Сумма положительных нечетных элементов:     60710

+ 0 -

Bogdansemenov

15 июля 2014 г., 4:18:14 (9 лет назад)

Комментарий удален

+ 0 -

97mura97

15 июля 2014 г., 7:06:05 (9 лет назад)

рандом

+ 0 -

Sdsdad

15 июля 2014 г., 7:44:59 (9 лет назад)

Комментарий удален

+ 0 -

Cat77stewchuck

15 июля 2014 г., 9:52:36 (9 лет назад)

ты здесь?

+ 0 -

Riseman

15 июля 2014 г., 11:40:51 (9 лет назад)

Комментарий удален