Вычислить сумму элементов матрицы, которые расположены выше главной диагонали

@Элик · Регистрация: 19.05.2011

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

МАССИВ!!!!!!ПОМОГИТЕ НАЙТИ ОШИБКУ!!!!
Дана матрица целых чисел размером 4*4. Вычислить сумму элементов матрицы, которые расположены выше главной диагонали.
var a:array[1..4,1..4] of integer;
s,i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
writeln('Ведите а[i,j]');
readln(a[i,j]);
end;

s:=0;
for i :=1 to 4 do
for j:=1 to 4 do
if i+j<=((i+j) div 2) then s:=s+a[i,j];

writeln('Сумма равна ',s);
readln;
end.
выходит ошибка type mismatch там где div....после 2ки

@sergey93 · 19.05.2011, 19:42

я не знаю где у тебя ошибка но вот мой вариант

Pascal

uses crt;
var
  a:array[1..4,1..4]of integer;
  i,j,s,n:integer;
begin
  clrscr;
    for i:=1 to 4 do
     begin
      for j:=1 to 4 do a[i,j]:=random(10);
     end;
  for i:=1 to 4 do
   begin
     for j:=1 to 4 do write(a[i,j]:4,' ');writeln;
    end;
     n:=2;
     s:=0;
    for i:=1 to 4 do
     begin
      for j:=n to 4 do s:=s+a[i,j];n:=n+1;
     end;
write(s);
end.

@Элик · 20.05.2011, 12:24 **[ТС]**

спасибо большое )))

@Элик 1 / 1 / 0 Регистрация: 19.05.2011 Сообщений: 5
		1
	Вычислить сумму элементов матрицы, которые расположены выше главной диагонали 19.05.2011, 14:30. Показов 994. Ответов 2 Метки нет (Все метки) МАССИВ!!!!!!ПОМОГИТЕ НАЙТИ ОШИБКУ!!!! Дана матрица целых чисел размером 4*4. Вычислить сумму элементов матрицы, которые расположены выше главной диагонали. var a:array[1..4,1..4] of integer; s,i,j:integer; begin for i:=1 to 4 do for j:=1 to 4 do begin writeln('Ведите а[i,j]'); readln(a[i,j]); end; s:=0; for i :=1 to 4 do for j:=1 to 4 do if i+j<=((i+j) div 2) then s:=s+a[i,j]; writeln('Сумма равна ',s); readln; end. выходит ошибка type mismatch там где div....после 2ки 0

@Элик 1 / 1 / 0 Регистрация: 19.05.2011 Сообщений: 5
	20.05.2011, 12:24 [ТС]	3
	спасибо большое ))) 0

Вычислить сумму элементов матрицы, которые расположены выше главной диагонали

Решение