Program n1;
const n=13;
var a: array [1..n] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
write('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i]*4>a[i]*a[i] then sum:=sum+a[i];
end;
writeln;
write('искомая сумма: ',sum);
end.
Слово посылка образовано с помощью приставки по
сведем к обной еденице измерения
и округляем до целого числа, так как число дискет не может быть дробным.
Ответ: 4 дискеты
не понял задания. если придумать цепочку рассуждений оканчивающую на 5, то
35-30-25-20-15-10-5. - табл умножения
1-2-3-4-5. - счет от единицы
A[1]=-3
A[2]=0
<span>A[3]=5
</span><span>A[4]=12
</span><span>A[5]=21
</span><span>A[6]=32
</span><span>A[7]=45</span>