Информатика | 5 - 9 классы
Даны n чисел.
Знайти сумму чисел більше ніж заданное число а.
(тема : одновимірні масиви).
Дано двовимірний масив D(3 * 4) цілих чисел?
Дано двовимірний масив D(3 * 4) цілих чисел.
Знайти кількість відємних та кількість додатніх елементів масиву.
Дан массив натуральных чисел ?
Дан массив натуральных чисел .
Найти сумму элементов , кратных заданному К.
Тема< ; Одномерные массивы> ; Дано N чисел?
Тема< ; Одномерные массивы> ; Дано N чисел.
Найдите сумму чисел, больших заданного числа А.
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N?
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих данного заданного числа N.
Напишите программу на Паскале.
P. S.
Тема урока - программирование циклов.
Задано два целых числа А и В?
Задано два целых числа А и В.
Найдите суммы нечетных чисел от А до В.
Составить программу.
Даны n чисел?
Даны n чисел.
Как найти сумму чисел , больших чем заданное число a ?
Вычислите сумму данных N натуральных чисел?
Вычислите сумму данных N натуральных чисел.
Входные данные Вводится число N, а затем N чисел, сумму которых необходимо вычислить.
Выходные данные Выведите единственное число - сумму введенных чисел.
В Pascal ABC.
Задано число nнайти сумму чисел от 1 до n включительно?
Задано число nнайти сумму чисел от 1 до n включительно.
Задано массив чисел из N элементов?
Задано массив чисел из N элементов.
Найдите среднее арифметическое элементов масиву, которые меньше числа M.
Дан массив из N целых чисел?
Дан массив из N целых чисел.
Определить количество элементов масива значения которых больше 5.
Вопрос Даны n чисел?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Var
a : array[1.
100]of longint ;
n, m, k, i, l, a : longint ;
begin
readln(a) ;
readln(n) ;
for i : = 1 to n do
begin
readln(a[i]) ;
if a[i]> ; a then k : = k + a[i] ;
end ;
writeln(k) ;
readln ;
end.