В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел.

@ger · Регистрация: 01.03.2015

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

Помогите плз.

@Law[L]esS · 02.04.2010, 12:46

Pascal

var
 a:array[1..10] of integer;
 i,sum:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20)-10;
   write(a[i],' ');
   if a[i] > 0 then sum:= sum + a[i];
 end;
 writeln;
 writeln(sum);
end.

@Inadequate · 02.04.2010, 13:24

После первого begin нужно

Pascal

sum := 0;

@ger 0 / 0 / 0 Регистрация: 01.03.2015 Сообщений: 2
		1
	В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел. 02.04.2010, 12:40. Показов 2470. Ответов 2 Метки нет (Все метки) Помогите плз. 0

	02.04.2010, 13:24

В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел.

Решение