Дан массив, содержащий 2014 положительных целых чисел. напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, значение которых более чем в два раза превосходит значение предшествующего элемента. например, для массива из 6 элементов, содержащего числа 2, 5, 10, 15, 40, 100, программа должна выдать ответ 3 (условию соответствуют элементы со значениями 5, 40 и 100). программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных. паскаль алгоритмический язык const n = 2014; var a: array [1..n] of integer; i, j, k: integer; begin for i: =1 to n do readln(a[i]); … end. алг нач цел n=2014 целтаб a[1: n] цел i, j, k нц для i от 1 до n ввод a[i] кц … кон

277

319

Посмотреть ответы 3

Ответы на вопрос:

workout7774

Информатика

4,6(87 оценок)

Фрагмент прог-ы на паскале вместо многоточия: k: =0; for i: =1 to n-1 do begin if (a[i+1]/a[i]> 2) then k: =k+1; end; write(k);

МозгЗнанияПамять

Информатика

4,5(81 оценок)

Const n=2014; var a: array[1..n]of integer; i,k: integer; begin for i: =1 to n do a[i]: =random(100); for i: =2 to n do if a[i] > 2*a[i-1] then k += 1; writeln(k); end.

Lera123yf

Информатика

4,7(58 оценок)

#include< iostream> #include< cstdlib> #include< ctime> using namespace std; int main() { srand(time(null)); int b[50][100]; for(int i = 0; i < 50; i++) { for(int j = 0; j < 100; j++) { b[i][j] = rand() % 100; cout < < b[i][j] < < ' '; } cout < < '\n' < < endl; } }