Даны n чисел. Как найти сумму чисел , больших чем заданное число a ?
10-11 класс
|
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.
Другие вопросы из категории
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
Не знаю как решать, срочно, пожалуйстааааа
Где-то справа от каретки на информационной ленте находится непрерывный массив меток. Написать программу для машины Поста, которая передвигает каретку в сторону массив меток, проходит по массиву и останавливается в первой пустой ячейке после массива
требующих ремонта с учетом числа ремонтирующихся. Отказы машин происходят с частотой λ=10 отк/час. Для устранения неисправности механику требуется в среднем =3 мин. Распределение моментов возникновения отказов является пуассоновским, а продолжительность выполнения ремонтных работ распределена экспоненциально. Возможно организовать 4 или 6 рабочих мест в цехе для механиков предприятия. Необходимо выбрать наиболее эффективный вариант обеспечения ремонтного цеха рабочими местами для механиков.
арифметическое всех чисел, которые кратны первому элементу. Гарантируется, что первый элемент положительный.
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
В целочисленной
последовательности есть нулевые элементы. Создать массив из номеров этих
элементов.
Program
Om1;
Uses
crt;
Var
a :array
[1..100] of real;
i,n,j :
integer;
x :
array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1
to n do
readln(a[i]);
j:=1;
for i:=1
to n do
if
a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1
to j-1 do
write(x[i],' ');
End.
Дана последовательность
целых чисел а1, а2….аn.
Выяснить какое число встречается раньше, положительное или отрицательное.
Program
num2;
Uses
crt;
VAr
a :array
[1..100] of real;
i,n :
integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1
to n do
begin
if
a[i]<>0 then
if
a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End.
Дана последовательность
действительных чисел а1, а2….аn. Выяснить будет ли она возрастающей.
Program
num4;
Uses
crt;
Var
a :
array [1..100] of real;
i, n, j
:integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1
to n do
readln(a[i]);
j:=0;
i:=1;
while
i<n do
begin
if
a[i]<a[i+1] then
begin
j:=j+1;
i:=i+1
end
else
begin
writeln('Последовательность невозрастающая');
break
end;
end;
if i=n then writeln('Последовательность возрастающая');
End.
Найти самую большую цифру
целого числа.
Program
rar;
uses
crt;
var
n:longint;
b:byte;
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали