23.11.2014, 01:53 | #1 (permalink) |
Member
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, задача с матрицей
Нужна маленькая помощь... Задание: Если среднее арифметическое матрицы А положительно, задать элементам С1, С2,...,С[i] значения тех элементов матрицы А, которое больше среднего арифметического этой матрицы. Вот я написал код: PHP код:
|4 6 20| |1 5 0| |30 6 1| То все вроде верно, выдаёт Среднее арифметическое матрицы А = 8.1 Полученный массив C = 20 30 Но если например ввести матрицу А: |25 24 25| |25 25 25| |25 25 25| То по должно выдать С= 25 25 25 25 25 25 25 25 (8 раз) Но выдаёт Среднее арифметическое матрицы А = 24.9 Полученный массив C = 25 25 25 (3 раза) На самом деле я не уверен что это верно, т.к. вывожу я не совсем массив, как сказано в задании... Но если написать так: PHP код:
Прошу вас помочь мне разобраться с этой проблемой. |
23.11.2014, 01:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не ленитесь и прочитайте похожие топики, это очень помогает в решении проблем Задача паскаль Задача Паскаль Задача. Паскаль |
23.11.2014, 09:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Легко.
1. Вводим еще одну переменную формата Integer, напр. q. 2. Вместо Код:
for i:=1 to n do for j:=1 to n do begin if A[i,j]>K then C[i]:=A[i,j]; write(C[i], ' '); end; Код:
q:=0; for i:=1 to n do for j:=1 to n do if A[i,j]>K then begin q:=q+1; C[q]:=A[i,j]; write(C[q], ' '); end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|