Найти сумму элементов массива, принадлежащих диапазону(-5,5).

@Ufa · Регистрация: 21.04.2010

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

Заполнить массив из 16 элементов (случайным образом) целыми значениями в диапозоне от -10 до 25 включительно. Найти сумму элементов массива, принадлежащих диапазону(-5,5).

@Высокий · 08.05.2011, 17:17

Сложно?

Pascal

uses crt;
const n=16;
type mas = array[1..n] of integer;
var A: mas;
    i,k: integer;
begin clrscr;
randomize;
k:=0;
writeln('Ìàññèâ: ');
for i:=1 to n do begin
A[i]:=random(36)-10;
write(A[i]:4);
if (A[i]<=5) and (A[i]>=-5) then k:=k+A[i];
end;
writeln;
writeln('Ñóììà: ',k);
readkey
end.

@Ufa 3 / 3 / 0 Регистрация: 21.04.2010 Сообщений: 27
		1
	Найти сумму элементов массива, принадлежащих диапазону(-5,5). 08.05.2011, 17:10. Показов 2934. Ответов 1 Метки нет (Все метки) Заполнить массив из 16 элементов (случайным образом) целыми значениями в диапозоне от -10 до 25 включительно. Найти сумму элементов массива, принадлежащих диапазону(-5,5). 0

	08.05.2011, 17:17

Найти сумму элементов массива, принадлежащих диапазону(-5,5).

Решение