Сделайте программу в паскале 1.одномерный массив - вопрос №83802271 от ishoeva 23.06.2020 11:09

Question

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

ishoeva · Answer

Program proizv;var i, n, s:integer; a:array[1..40] of integer;begins:=0;writeln( Введите кол-во элементов );readln(n);for i:=1 to n dobegina[i]:=random(100)-40;writeln(a[i], );end;for i:=1 to n dobegina[i]:=a[i-1]+a[i-2];s:=s+a[i];end;writeln( s= ,s);end....