Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму

@worldless · Регистрация: 03.03.2013

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

Здравствуйте! Помоги пожалуйста решить задачку.

Дан одномерный массив А[30], элементы которого формируются по формуле Ai = i * cos i, где i – номер элемента в массиве А. Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму.

@ZLO1988 · 03.03.2013, 14:14

Pascal

uses crt;
const n = 30;
var
i: byte;
sum: real;
matrix: array [1..n] of real;
begin
writeln('Матрица:');
for i:=1 to n do
begin
matrix[i]:=random(50);
matrix[i]:=matrix[i]*cos(matrix[i]);
write(matrix[i]:4:3,' ');
end;
writeln();
sum:=0;
for i:=1 to n do
if (matrix[i] >= 0) then
begin
sum:=sum+matrix[i];
end;
writeln('Искомая сумма = ',sum:4:3);
end.

@worldless · 03.03.2013, 14:18 **[ТС]**

Спасибо большое

@worldless 0 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 8
		1
	Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму 03.03.2013, 12:19. Показов 2162. Ответов 2 Метки нет (Все метки) Здравствуйте! Помоги пожалуйста решить задачку. Дан одномерный массив А[30], элементы которого формируются по формуле Ai = i * cos i, где i – номер элемента в массиве А. Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму. 0

@worldless 0 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 8
	03.03.2013, 14:18 [ТС]	3
	Спасибо большое 0

Опции темы

Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму

Решение