Вопрос по информатике:
Сделайте программу в Паскале пожалуйста
1.Одномерный массив случайных целых чисел от 1 до 40 из диапазона от -40 до 60 .
Определить сумму элементов , номера которых - числа фибоначчи .
2 Дан целочисленный массив из 30 элементов , значение которых принадлежит от -10000 до 10000 . Определить количество пар элементов , сумма которых нечётна и отрицательна . Пара - два подряд идущих элемента . - max длину последовательности рядом стоящих элементов упорядоченных по неубыванию .
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.11.2017 02:55
- Информатика
- remove_red_eye 12192
- thumb_up 7
Ответы и объяснения 1
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.
- 05.11.2017 00:13
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.