Сделайте программу в паскале 1.одномерный массив случайных целых чисел от 1 до 40 из диапазона от -40 до 60 . определить сумму элементов , номера которых - числа фибоначчи . 2 дан целочисленный массив из 30 элементов , значение которых принадлежит от -10000 до 10000 . определить количество пар элементов , сумма которых нечётна и отрицательна . пара - два подряд идущих элемента . - max длину последовательности рядом стоящих элементов по неубыванию .
АРинаArinah
3
13.09.2019 10:50
0
Другие вопросы по теме Информатика
енот252
04.06.2019 16:50
stenolaz19
04.06.2019 16:50
olya02072000
04.06.2019 16:50
julia071201
04.06.2019 16:50
Артеммашар
05.02.2022 14:17
thecrazynon1098
27.04.2020 08:26
alekseyanci
27.04.2020 08:26
MikiMio
27.04.2020 08:26
sacha0457
27.04.2020 08:27
Популярные вопросы
- Ax-ay+cy-cx+x-y многочлен в виде произведения...
3 - 5. росток появляется из земли, начинает расти, прибавляя в росте...
2 - 3,01×10в26стеени молекул азотной кислоты...
1 - Найдите сложное предложение с бессоюзной и союзной сомнительной...
3 - Сплав состоит из 6 частей цинка и 8 частей железа. сколько килограммов...
2 - Подберите однокоренные слова к слову нарисовать...
1 - Подготовь рассказ о своём крае расскажи ты живёшь на равнине или...
2 - Внешний угол при вершине равнобедренного треугольника равен 100...
1 - Найдите наибольшее целое число, являющееся решением равенства:...
2 - Значение млекопитающих для человека...
2
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.