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

@stydentlk · Регистрация: 06.06.2018

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

@Puporev · 03.07.2018, 15:40

Pascal

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

@stydentlk 0 / 0 / 0 Регистрация: 06.06.2018 Сообщений: 9
		1
	Найти среднее арифметическое элементов отмеченной области матрицы 03.07.2018, 12:03. Показов 375. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое элементов отмеченной области матрицы. Изображения 0

Опции темы