Найти сумму элементов, удовлетворяющих условию

@александр_танк · Регистрация: 16.05.2013

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

1) В массиве чисел А1, А2, …, An найти сумму элементов, удовлетворяющих условию |Ai| < i2.

@antonboom · 17.05.2013, 01:05

Pascal

uses crt;
const N = 10;
var a:array[1..N] of integer;
    s:real;
    i:byte;
begin
randomize;
s:=0;
For i:=1 to 10 do begin
a[i]:=random(11)-5; write(a[i],' ');
If a[i]<(2*i) then begin
s:=s+a[i];
end;end;
writeln;
write('Ñóììà: ',s);
end.

@александр_танк 0 / 0 / 0 Регистрация: 16.05.2013 Сообщений: 44
		1
	Найти сумму элементов, удовлетворяющих условию 16.05.2013, 22:05. Показов 2193. Ответов 1 Метки нет (Все метки) 1) В массиве чисел А1, А2, …, An найти сумму элементов, удовлетворяющих условию \|Ai\| < i2. 0

	17.05.2013, 01:05

Найти сумму элементов, удовлетворяющих условию

Решение