Составить программу нахождения суммы элементов F[10] >= 10

@rustam590 · Регистрация: 21.06.2010

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

@SuPeR XaKer · 07.10.2010, 19:47

Pascal

Uses
 CRT;
Const
n=10;
Var
 i,sum,k:integer;
 mas:array[1..n] of integer;
begin
repeat
write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
readln(k);
until k in [1..n];
randomize;
for i:=1 to k do
begin
mas[i]:=random(10)-3;
write(mas[i]:3);
end;
writeln;
sum:=0;
i:=1;
repeat
begin
sum:=sum+mas[i];
inc(i);
end;
until i>=10;
writeln('SUM:=',sum);
end.

@rustam590 · 07.10.2010, 20:50 **[ТС]**

Спасибо.

@rustam590 0 / 0 / 0 Регистрация: 21.06.2010 Сообщений: 20
		1
	Составить программу нахождения суммы элементов F[10] >= 10 07.10.2010, 19:37. Показов 1080. Ответов 2 Метки нет (Все метки) Составить программу нахождения суммы элементов F[10] >= 10 0

@rustam590 0 / 0 / 0 Регистрация: 21.06.2010 Сообщений: 20
	07.10.2010, 20:50 [ТС]	3
	Спасибо. 0

Составить программу нахождения суммы элементов F[10] >= 10

Решение