В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
dias2266
dias2266
19.01.2021 14:58 •  Информатика

Дан массив, содержащий 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] кц … кон

Показать ответ
Ответ:
ариана54091
ариана54091
10.07.2020 16:52
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.
0,0(0 оценок)
Ответ:
alexandra44444
alexandra44444
10.07.2020 16:52
Фрагмент прог-ы на Паскале вместо многоточия:

k:=0;
for i:=1 to N-1 do begin
if (a[i+1]/a[i]>2) then
k:=k+1;
end;
write(k);
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота