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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2009, 00:17   #1
Rise
Пользователь
 
Регистрация: 05.01.2009
Сообщений: 20
По умолчанию В заданном целочисленном двумерном массиве найти среднее арифметическое в каждой строке

Проверьте пожалуйста задачку..
В заданном целочисленном двумерном массиве найти среднее арифметическое в каждой строке и сформировать одномерный массив из них.
Было несколько вариантов решения, но во всех программа выдавала ошибку "Несоответствие типов" при делении элемента массива на n (число равное кол-ву элементов строки)

Код:
Program Ex13_1;
uses crt;
var
   i,j,k,n:integer;
   a:array[1..100,1..100] of integer;
   x:array[1..100] of integer;
   b:array[1..100] of integer;
begin
clrscr;
   randomize;
   write ('‚Введите количество элементов - ');
   readln (n);
   for i:=1 to n do
   for j:=1 to n do
       a[i,j]:=random (100);
       begin
         for i:=1 to n do
          begin
            for j:=1 to n do
            write (a[i,j]:3);
            writeln;
          end;
       end;
       for i:=1 to n do
           begin
              x[i]:=0;
              for j:=1 to n do
                  x[i]:=x[i]+a[i,j];                  
           end;
           for i:=1 to n do                      
                          b[i]:=x[i]/n.
           writeln ('Новый массив');
           for i:=1 to n do
           write (b[i]:3);
readkey;
end.

Последний раз редактировалось Rise; 06.01.2009 в 19:10.
Rise вне форума Ответить с цитированием
Старый 06.01.2009, 00:38   #2
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию Вот )

Код:
uses crt;
const
n=5;
var
mas:array[1..n,1..n] of integer;
ar:array[1..n] of real;
i,j,k:integer;
sr:real;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
   mas[i,j]:=random(10);
   write(mas[i,j],'  ');
   end;
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
 begin
  sr:=0;
  for j:=1 to n do
   sr:=sr+mas[i,j];
 sr:=sr/n;
 k:=k+1;
 ar[k]:=sr;
 end;
writeln;
for i:=1 to k do
 write(ar[i]:2:1,'  ');
readln;
end.
@(o_0)@
Tkirill вне форума Ответить с цитированием
Старый 06.01.2009, 00:52   #3
Rise
Пользователь
 
Регистрация: 05.01.2009
Сообщений: 20
По умолчанию

Упс, оперативно. Спасибо огромное!!!
Rise вне форума Ответить с цитированием
Старый 06.01.2009, 00:55   #4
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию

Ато ) )))
незачто
с тебя отзыв ))
@(o_0)@
Tkirill вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти количество строк, среднее арифметическое элементов которых меньше заданной величины Sergeo_89 Паскаль, Turbo Pascal, PascalABC.NET 3 05.12.2008 21:25
Матрицы. Найти среднее арифметическое Waia Помощь студентам 1 06.11.2008 17:22
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. bkmz Помощь студентам 11 16.04.2008 11:17
В целочисленном массиве найти самое часто повторяющееся число Алена Помощь студентам 2 01.11.2007 19:46