Написать программу, содержащую подпрограмму для вычисления куба суммы положительных элементов массива Х(15,30)

@ваня37 · Регистрация: 17.11.2012

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

Помогите написать программу, содержащую подпрограмму для вычисления куба суммы положительных элементов массива Х(15,30)

@Leshak · 22.12.2012, 16:34

Pascal

Uses crt;
var
 X: array [ 1 .. 15 , 1 .. 30 ] of integer;
 i, j: integer;
 sum: real;
 
Procedure sum_cub;
var
 k: real;
begin
sum:=0;
for i:=1 to 15 do begin
 for j:=1 to 30 do begin
  if X[i,j] > 0 then sum:=sum+X[i,j];
 end;
end;
k:=exp(3*ln(sum));
write('sum^3 = ',k);
end;
 
begin
clrscr;
randomize;
for i:=1 to 15 do begin
 for j:=1 to 30 do begin
     X[i,j]:=random(21)-10;
     write(X[i,j]:3);
 end;
writeln;
end;
sum_cub;
readln;
end.

@ваня37 0 / 0 / 1 Регистрация: 17.11.2012 Сообщений: 17
		1
	Написать программу, содержащую подпрограмму для вычисления куба суммы положительных элементов массива Х(15,30) 22.12.2012, 01:18. Показов 1736. Ответов 1 Метки нет (Все метки) Помогите написать программу, содержащую подпрограмму для вычисления куба суммы положительных элементов массива Х(15,30) 0

	22.12.2012, 16:34

Написать программу, содержащую подпрограмму для вычисления куба суммы положительных элементов массива Х(15,30)

Решение