Тема<Одномерные массивы> Дано N чисел. Найдите сумму чисел,больших заданного числа А
10-11 класс
|
Program n1;
Uses CRT;
Const n=10;
Var x:array[1..n] of integer;
i,s,a: integer;
begin
Writeln('Vvedite chisla');
For i:=1 to n do
readln(x[i]);
Writeln('Vvedite A');
Readln(a);
For i:=1 to n do
if x[i]>a then s:=s+x[i];
Writeln('Summa elementov, bolshih a =',s);
readln
end.
Другие вопросы из категории
использования в образовательных учреждениях.Облачные программные продукты используются в школах для:
1) больших и сложных вычислений;
2) повышения имиджа школы;
3) работы с документами, электронной почтой и системами совместной работы над проектами;
4) для коррекционной работы со школьниками с девиантным поведением.
там она говорит что надо решать в Excel.
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
Читайте также
организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!