Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.05.2009, 22:11   #1
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию Паскаль, матрицы, наработок нету.(2)

Дана матрица А, состоящая из m строк и n столбцов. Известно, что в матрице элемент последнего столбца может иметь лишь значения 0 и 1. Найти среднее арифметическое общей совокупности элементов тех строк, последний элемент которых равен 1.
Otre4eHHbIu вне форума
Старый 27.05.2009, 22:20   #2
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Код:
S:=0;
k:=0;
for i:=1 to n do 
if A[i,m]=1 then
 for j:=1 to m do
   begin
    S:=S+A[i,j];
    inc(k);
   end;

Sr:=S/k;
Жми на весы!!!
Chudo4258 вне форума
Старый 27.05.2009, 23:51   #3
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию

а подробнее\полностью? (возможности разбирать нету сейчас)
Otre4eHHbIu вне форума
Старый 28.05.2009, 05:24   #4
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Цитата:
а подробнее\полностью? (возможности разбирать нету сейчас)
Сколько $ ?
Жми на весы!!!
Chudo4258 вне форума
Старый 28.05.2009, 05:35   #5
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию

даже не смешно... "Помощь студентам", а не "Фриланс"...
Otre4eHHbIu вне форума
Старый 28.05.2009, 06:11   #6
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Дак вот именно "Помощь студентам", а не решение за студентов.
Вот вам выше написана почти все программа, осталовсь только написать:
Код:
Program ...;
var ....;
begin
.............................;
S:=0;
k:=0;
for i:=1 to n do 
if A[i,m]=1 then
 for j:=1 to m do
   begin
    S:=S+A[i,j];
    inc(k);
   end;
Sr:=S/k;
writeln('Среднее арифм. = ', Sr);
readln;
end.
Жми на весы!!!
Chudo4258 вне форума
Старый 28.05.2009, 06:28   #7
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию

ты просто не представляешь как я тебе благодарен, у меня банально нету времени в ней разбираться, можешь пробить темы мои предыдущие - наработки есть во всех кроме сегодняшних(вчерашних) - их 2...
Otre4eHHbIu вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, матрицы, наработок нету.(1) Otre4eHHbIu Помощь студентам 2 28.05.2009 06:28
Паскаль матрицы Darf Помощь студентам 3 15.05.2009 08:49
Паскаль. МАТРИЦЫ Азарт Помощь студентам 8 04.04.2009 21:08
матрицы паскаль Кирилл17 Помощь студентам 4 28.12.2008 16:33