Найти сумму положительных элементов массива, значения которых меньше 8

@enke · Регистрация: 11.10.2012

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

1.Найдите сумму положительных элементов массива,значения которых меньше 8

@Valery__ · 11.10.2012, 13:56

Pascal

Program sum_arry;
Const n=5;
Type mas = array[1..n] of real;
Var a:mas;
    i:integer;
    sum:real;
BEGIN
  Writeln ('Vvedite masiv chisel ');
  sum:=0;
  for i:=1 to n do begin
    write ('a[',i,']');
    Readln (a[i]);
    if (a[i]>0) AND (a[i]<8) then sum:= sum + a[i];
 end;
 Write ('Summa = ',sum);
END.

@enke · 11.10.2012, 14:31 **[ТС]**

Спасибо!

@enke 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 31
		1
	Найти сумму положительных элементов массива, значения которых меньше 8 11.10.2012, 12:36. Показов 1624. Ответов 2 Метки нет (Все метки) 1.Найдите сумму положительных элементов массива,значения которых меньше 8 0

@enke 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 31
	11.10.2012, 14:31 [ТС]	3
	Спасибо! 0

Найти сумму положительных элементов массива, значения которых меньше 8

Решение