Дана матрица А

@Иван В · Регистрация: 23.04.2013

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

Помогите пожалуйста...8-е задание

@Own3D · 08.05.2013, 20:59

Pascal

uses crt;
const
   n=3;
   m=4;
var
   b:array[1..n, 1..m] of real;
   sum:real;
   i,j:integer;
begin
writeln('Matrix:');
sum:=0;
for i:=1 to n do
   begin
   for j:=1 to m do
      begin
      b[i,j]:=j-i/2;
      if b[i,j]>2 then
      sum:=sum+b[i,j];
      write(b[i,j],'  ');
      end;
   writeln;
   end;
writeln('Sum b[i,j]>2 = ',sum);
 
sum:=0;
for i:=1 to n do
   begin
   if b[i,3]<>0 then
   sum:=sum+1;
   end;
writeln('Count b[i,3]<>0 = ',sum);
 
sum:=1;
for j:=1 to m do
   begin
   if b[2,j]>0 then
   sum:=sum*b[2,j];
   end;
writeln('Product b[2,j]>0 = ',sum);
end.

@Иван В 0 / 0 / 0 Регистрация: 23.04.2013 Сообщений: 9
		1
	Дана матрица А 08.05.2013, 08:30. Показов 1105. Ответов 1 Метки нет (Все метки) Помогите пожалуйста...8-е задание Миниатюры 0

Опции темы

Дана матрица А

Решение