Найти среднее арифметическое элементов отмеченной области матрицы

@jelly · Регистрация: 14.06.2018

Найти среднее арифметическое элементов отмеченной области матрицы. области на картинке.

@Puporev · 17.06.2018, 16:32

Которой области? Зеленой, оранжевой, обеих, каждого цветного треугольника?

@jelly · 20.06.2018, 02:02 **[ТС]**

я дико извиняюсь! вот рисунок. на нем синяя область

@Puporev · 20.06.2018, 10:06

Добавлено через 1 час 18 минут

Pascal

var a:array[1..15,1..15] of real;
    n,k,i,j:integer;
    s:real;
begin
repeat
write('Введите размер матрицы от 3 до 15 n=');
readln(n);
until n in [3..15];
k:=0;
s:=0;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    if ((j<=i)and(j<=n-i+1))or((j>=i)and(i>n div 2))then
     begin
      k:=k+1;
      s:=s+a[i,j];
     end;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
s:=s/k;
write('Среднее арифметическое выделенной области=',s:0:2)
end.

Если бы как нормальный человек поместили бы тему в нужный подраздел Паскаля, можно было бы слегка разукрасить программу, вывести цветом выделенную область.

@jelly 0 / 0 / 0 Регистрация: 14.06.2018 Сообщений: 36
		1
	Найти среднее арифметическое элементов отмеченной области матрицы 17.06.2018, 16:11. Показов 579. Ответов 3 Метки нет (Все метки) Найти среднее арифметическое элементов отмеченной области матрицы. области на картинке. Изображения 0

@Puporev Почетный модератор 64277 / 47576 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	17.06.2018, 16:32	2
	Которой области? Зеленой, оранжевой, обеих, каждого цветного треугольника? 0

@jelly 0 / 0 / 0 Регистрация: 14.06.2018 Сообщений: 36
	20.06.2018, 02:02 [ТС]	3
	я дико извиняюсь! вот рисунок. на нем синяя область Изображения 0

Опции темы