Сделайте программку в Паскале пожалуйста 1.Одномерный массив случайных целых чисел от

Question

Сделайте программку в Паскале пожалуйста 1.Одномерный массив случайных целых чисел от

Сделайте программку в Паскале пожалуйста
1.Одномерный массив случайных целых чисел от 1 до 40 из спектра от -40 до 60 .
Найти сумму частей , номера которых - числа фибоначчи .
2 Дан целочисленный массив из 30 частей , значение которых принадлежит от -10000 до 10000 . Найти количество пар частей , сумма которых нечётна и отрицательна . Пара - два подряд идущих элемента . - max длину последовательности рядом стоящих частей упорядоченных по неубыванию .

Задать свой вопрос

Нина Стучкова
Информатика
2019-02-06 15:43:29
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

(x+7)-(x-8)=-15 як його розв039;язати???

ПОМОГИТЕ Безотлагательно ЛЮДИ ДОБРЫЕ!объясните тупому человеку(мне) как делить по физике вот

На елке зажглись красные, зеленые, голубые огоньки. Цапли живут на

И вы поймёте, как занимательна книга природы - синтаксический разборнеграмотный -

Пирог массой 1,3 кг разрезали на 6 одинаковых кусков. Найдите массу

Кому принадлежит псевдоним Антоша Чехонтс

Механизм воздействия осмоса на движение за солнцем цветка подсолнуха.

решите систему уровнении1) -x+y=0 2) 4x+y=2 3) 3x+10y=-12

помогите пожалуйста

мама- велике найкраще слово написати твр.Пожалуйста!

Нелли Капелюшникова · Answer 1 · 2019-02-06 15:48:56+3:00

Program proizv;
var i, n, s:integer; a:array[1..40] of integer;
begin
s:=0;
writeln('Введите кол-во частей');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100)-40;
writeln(a[i],' ');
end;
for i:=1 to n do
begin
a[i]:=a[i-1]+a[i-2];
s:=s+a[i];
end;
writeln('s=',s);
end.

О проекте

Сделайте программку в Паскале пожалуйста 1.Одномерный массив случайных целых чисел от

Добро пожаловать!