Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов

@AlexRoom · Регистрация: 14.11.2012

Author24 — интернет-сервис помощи студентам

Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов, находящихся на главной диагонали. В обратном случае присвоить значение false.

@Puporev · 20.11.2012, 09:00

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
    sr,p:real;
    t:boolean;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sr:=0;
p:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random*(10);
    write(a[i,j]:5:1);
    sr:=sr+a[i,j];
    if i=j then p:=p*a[i,j];
   end;
  writeln;
 end;
sr:=sr/(n*n);
writeln;
writeln('Среднее арифметическое элементов матрицы=',sr:0:2);
writeln('Произведение элементов главной диагонали=',p:0:2);
t:=sr>p;
write(t);
readln
end.

@AlexRoom · 20.11.2012, 21:27 **[ТС]**

Спасибо)

Комментарий модератора

Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@AlexRoom 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 19
		1
	Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов 19.11.2012, 23:16. Показов 1530. Ответов 2 Метки нет (Все метки) Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов, находящихся на главной диагонали. В обратном случае присвоить значение false. 0

	20.11.2012, 21:27

Опции темы

Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов

Решение