Вычислить сумму элементов, по модулю меньших 1

@Андрей_Андре · Регистрация: 04.09.2013

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

Дано = 5. Получить иатрицу A(n m) по правилу a_ij=(-j/n)-(i/2)+2 . Вычислить :
1) сумму элементов по модулю меньших 1;
2)Произведение положительных элементов третьего столбца.
3) Количество элементов четвертого столбца по модулю больших 0,5.

@di_ingenio · 04.09.2013, 12:47

Матрица - это двумерный массив nxm элементов. Ну и вперед: делаешь цикл в цикле - заполняешь массив.

@Андрей_Андре · 04.09.2013, 13:01 **[ТС]**

Блин, ребят, вообще не понимаю информатику,
пожалуйста выручите..)

@Puporev · 04.09.2013, 13:36

Сообщение от Андрей_Андре

Дано = 5.

А это что за фигня?

@Андрей_Андре · 04.09.2013, 13:37 **[ТС]**

дано n=5

@Puporev · 04.09.2013, 14:05

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of real;
    i,j,k:integer;
    s,p:real;
begin
clrscr;
writeln('Исходная матрица:');
s:=0;
p:=1;
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-j/n-i/2+2;
    write(a[i,j]:6:2);
    if abs(a[i,j])<1 then s:=s+a[i,j];
    if (j=3)and(a[i,j]>0) then p:=p*a[i,j];
    if (j=4)and(abs(a[i,j])>0.5)then k:=k+1
   end;
  writeln;
 end;
writeln('Сумма элементов по модулю меньше 1=',s:0:2);
writeln('Произведение положительных элементов третьего столбца=',p:0:2);
write('Количество элементов четвертого столбца по модулю больше 0.5=',k);
readln
end.

@Андрей_Андре 0 / 0 / 0 Регистрация: 04.09.2013 Сообщений: 15
		1
	Вычислить сумму элементов, по модулю меньших 1 04.09.2013, 12:35. Показов 1167. Ответов 5 Метки нет (Все метки) Дано = 5. Получить иатрицу A(n m) по правилу a_ij=(-j/n)-(i/2)+2 . Вычислить : 1) сумму элементов по модулю меньших 1; 2)Произведение положительных элементов третьего столбца. 3) Количество элементов четвертого столбца по модулю больших 0,5. 0

@di_ingenio 98 / 6 / 1 Регистрация: 14.05.2013 Сообщений: 50
	04.09.2013, 12:47	2
	Матрица - это двумерный массив nxm элементов. Ну и вперед: делаешь цикл в цикле - заполняешь массив. 0

@Андрей_Андре 0 / 0 / 0 Регистрация: 04.09.2013 Сообщений: 15
	04.09.2013, 13:01 [ТС]	3
	Блин, ребят, вообще не понимаю информатику, пожалуйста выручите..) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.09.2013, 13:36	4
	Сообщение от Андрей_Андре Дано = 5. А это что за фигня? 0

@Андрей_Андре 0 / 0 / 0 Регистрация: 04.09.2013 Сообщений: 15
	04.09.2013, 13:37 [ТС]	5
	дано n=5 0

	04.09.2013, 14:05