Обработка массива

@Призрак 9 · Регистрация: 05.12.2013

Author24 — интернет-сервис помощи студентам

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

@ildwine · 05.12.2013, 08:43

Pascal

const
  n = 7;
var
  a : array[1..n, 1..n] of integer;
  i, j, max, min : integer;
begin
  randomize;
  max := -100;
  min := 100;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(50) - 25;
      write(a[i,j]:4);
      if (i = j) and (a[i,j] <= min) then min := a[i,j];
      if (i + j = n + 1) and (a[i,j] >= max) then max :=  a[i,j]
    end;
    writeln
  end;
  writeln('максимум побочной диагонали: ', max);
  writeln('минимум главной диагонали: ', min);
  readln
end.

@Призрак 9 · 05.12.2013, 09:24 **[ТС]**

Спасибо за ответ но он пишет "арифметическое переполнение" как исправить скинь

@ildwine · 05.12.2013, 09:36

Призрак 9, у меня прекрасно работает. Пользуюсь вот этой сборкой Turbo Pascal

@Призрак 9 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 32
		1
	Обработка массива 05.12.2013, 06:48. Показов 1434. Ответов 3 Метки нет (Все метки) Определить: а) минимальный элемент главной диагонали массива; б) максимальный элемент побочной диагонали массива. 0

@Призрак 9 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 32
	05.12.2013, 09:24 [ТС]	3
	Спасибо за ответ но он пишет "арифметическое переполнение" как исправить скинь 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	05.12.2013, 09:36	4
	Призрак 9, у меня прекрасно работает. Пользуюсь вот этой сборкой Turbo Pascal 1

Обработка массива

Решение