Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Обработка массивов переменной длины /Delphi/

27K
05 декабря 2007 года
Gerat
10 / / 05.12.2007
Известно, что в матрице элемент последнего столбца может иметь лишь значения 0 и 1. Найти среднее арифметическое общей совокупности элементов тех строк, последней элемент которых равен 1.

помогите решить, буду очень признателен...
247
06 декабря 2007 года
wanja
1.2K / / 03.02.2003
 
Код:
sum:=0;
n:=0;
for i:=0 to length(matrix)-1 do
  if matrix[i,length(matrix)-1=1 then
    begin
    n:=n+length(matrix);
    for j:=0 to length(matrix)-1 do
         sum:=sum+matrix[i,j];
    end;
avg:=sum/n;

Примерно так
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог