Ввести массив 3x3. Определить сумму элементов главной диагонали и сумму поставить вместо элементов 1 строки

@zoomer94 · Регистрация: 22.05.2011

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

Ввести массив 3x3. Определить сумму элементов главной диагонали и сумму поставить вместо элементов 1 строки.

@MicM · 28.06.2013, 16:32

Pascal

const
  n=3;
var
  a:array [1..n,1..n] of integer;
  i,j,sum:integer;
begin
  randomize;
  sum:=0;
  writeln ('Исходный массив: ');
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=random(9)+1;
    write (a[i,j]:3);
    if i=j then sum:=sum+a[i,j];
   end;
   writeln;
  end;
  writeln ('Сумма эл. главной диагонали: ',sum);
  writeln ('Полученный массив: ');
  for i:= 1 to n do begin
   for j:=1 to n do begin
    if i=1 then a[i,j]:=sum;
    write (a[i,j]:3);
   end;
  writeln;
  end;
end.

@zoomer94 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 38
		1
	Ввести массив 3x3. Определить сумму элементов главной диагонали и сумму поставить вместо элементов 1 строки 28.06.2013, 16:24. Показов 2683. Ответов 1 Метки нет (Все метки) Ввести массив 3x3. Определить сумму элементов главной диагонали и сумму поставить вместо элементов 1 строки. 0

Опции темы

Ввести массив 3x3. Определить сумму элементов главной диагонали и сумму поставить вместо элементов 1 строки

Решение