Вычислить количество максимальных элементов

@Mr.Gadget · Регистрация: 26.09.2013

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

Дано квадратную действительную таблицу размерности n. Вычислить количество максимальных элементов.

@Alexxandr · 23.11.2013, 14:37

Pascal

var
A: array of array of double;
n,imax,jmax,maxcnt: integer;
imax := 0;
jmax := 0; maxcnt := 0;
for i:=0 to n-1 do
 for j:=0 to n-1 do
  begin
if A[i,j] = A[imax,jmax] then inc(maxcnt);
 if (A[i,j] < A[imax,jmax]) then 
begin
maxcnt := 0;
imax := i;
jmax := j;
end;
end;

@Mr.Gadget · 23.11.2013, 14:46 **[ТС]**

Во второй строчке ошибка 92

@Mr.Gadget · 23.11.2013, 16:19 **[ТС]**

Дано квадратную действительную таблицу размерности n. Вычислить количество максимальных элементов.

@volvo · 23.11.2013, 16:26

Дублировать темы еще не надоело? Вычислить количество максимальных элементов

@Mr.Gadget · 23.11.2013, 16:55 **[ТС]**

Они просто не работают, и никто не отвечает

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
		1
	Вычислить количество максимальных элементов 23.11.2013, 14:32. Показов 547. Ответов 5 Метки нет (Все метки) Дано квадратную действительную таблицу размерности n. Вычислить количество максимальных элементов. 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
	23.11.2013, 14:46 [ТС]	3
	Во второй строчке ошибка 92 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
	23.11.2013, 16:19 [ТС]	4
	Дано квадратную действительную таблицу размерности n. Вычислить количество максимальных элементов. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	23.11.2013, 16:26	5
	Дублировать темы еще не надоело? Вычислить количество максимальных элементов 0

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
	23.11.2013, 16:55 [ТС]	6
	Они просто не работают, и никто не отвечает 0