Для каждого столбца матрицы с чётным номером вычислить сумму квадратов элементов этого столбца

@Anton356 · Регистрация: 05.04.2016

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

. Создать матрицу 4х4. Для каждого столбца с четным номером вычислить сумму квадратов элементов этого столбца. Вывести результат.

Pascal

var
  Massiv: array [1..4,1..4] of integer;
  I,J: integer;
  c:array[1..4,1..4]of integer;
 
begin
  for I:=1 to 4 do
  begin
  for J:=1 to 4 do
  begin
  Massiv[I,J]:=I;
  write(I:5);
  writeln;
  end;
  end;
  for I := 1 to 4 do  
    if not odd(Massiv[I,J]) and not odd(I) and not odd(J) then 
    begin
   c:=Massiv[I,J]; // опять нельзя из массива в массив перенести...
    end;
    writeln(I,J);
  end.

@Puporev · 10.11.2017, 15:49

Pascal

const n=4;
var c: array [1..n,1..n] of integer;
    i,j,s: integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=1+random(9);
    write(c[i,j]:2);
   end;
  writeln;
 end;
j:=2;
while j<=n do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+sqr(c[i,j]);
  writeln('Столбец ',j,' сумма квадратов=',s);
  j:=j+2;
 end;
end.

@Anton356 · 10.11.2017, 15:54 **[ТС]**

спасибо.
я опять налепил хрен знает что

@Anton356 0 / 0 / 1 Регистрация: 05.04.2016 Сообщений: 134
	10.11.2017, 15:54 [ТС]	3
	спасибо. я опять налепил хрен знает что 0

Опции темы