Найти сумму элементов первого столбца матрицы

@МаксКибер · Регистрация: 05.10.2014

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

Дано действительная квадратная матрица порядка n. Найти суму элементов первого столбика.

@Puporev · 15.05.2015, 15:53

Pascal

uses crt;
const max=15;
var x:array[1..max,1..max] of real;
    n,i,j:integer;
    s:real;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10*random;
    write(x[i,j]:5:2);
    if j=1 then s:=s+x[i,j];
   end;
  writeln;
 end;
write('Сумма элементов первого столбца=',s:0:2);
readln
end.

@МаксКибер 0 / 0 / 0 Регистрация: 05.10.2014 Сообщений: 15
		1
	Найти сумму элементов первого столбца матрицы 15.05.2015, 14:38. Показов 3250. Ответов 1 Метки нет (Все метки) Дано действительная квадратная матрица порядка n. Найти суму элементов первого столбика. 0

	15.05.2015, 15:53

Найти сумму элементов первого столбца матрицы

Решение