Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество

5-9 класс

элементов, значение которых более чем в два раза превосходит значение предшествующего элемента. Например, для массива из 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]
кц

кон


Kristina2006 19 февр. 2015 г., 15:03:48 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Sasanlida1978
19 февр. 2015 г., 15:37:48 (9 лет назад)

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 -
555550000
19 февр. 2015 г., 16:41:14 (9 лет назад)

Фрагмент прог-ы на Паскале вместо многоточия:

k:=0;
for i:=1 to N-1 do begin
if (a[i+1]/a[i]>2) then
k:=k+1;
end;
write(k);

Ответить

Другие вопросы из категории

Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел

program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a);
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b);
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
writeln(maxlongint);
readln;
end.

Составить программу:

1. Задано пятизначное число. Выделить цифры, стоящие в разряде единиц и разряде тысяч. Вывести их в порядке убывания
2. Задано четырехзначное число. Удалить из записи числа последнюю цифру. Определить, будет ли оставшееся число кратно 11

превратите одно слово в другое, всякий раз заменяя по 1букве так, чтобы новое слово было существительное в именительном падеже. пример: слоН-слоГ,

используйте подсказки.
паук
имени Горького
два
на машине
для грузоперевозок
ерунда
муха

Читайте также

1) Дан

целочисленный массив из 30 элементов. Элементы массива могут принимать значения
от

0 до 1000. Опишите на русском языке или на одном из языков программирования
алгоритм, который находит и выводит среднее арифметическое всех элементов
массива, имеющих нечётное значение. Гарантируется, что хотя бы один такое
элемент в массиве есть.

Паскаль

Дан массив, содержащий 70 неотрицательных целых чисел. Напишите программу, позволяющую найти и вывести наименьшую чётную сумму двух соседних элементов массива. Гарантируется, что в массиве есть соседние элементы с чётной суммой.

1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.

2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.



Вы находитесь на странице вопроса ". Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.