Создать программу в паскале используя массив: Найти сумму элементов, больших числа А.
10-11 класс
|
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива B:');
for i:=1 to n do
readln(b[i]);
writeln('исходный массив B:');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма элементов =', s);
readln
end.
program P_1;
var
i, n : integer;
a, s : real;
b : array [1..1000] of real;
begin
writeln('введите число а');
readln(a);
writeln('введите количество значений массива n');
readln(n);
write('введите элементы массива B');
for i:=1 to n do
readln(b[i]);
writeln('первоначальный массив B');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма значений =', s);
end.
Другие вопросы из категории
Нужно составить программу в QBasic
Заканчивается на согласную в слове 6 букв четвёртая буква гласная
1ауди
2мазда
3мерседес
4ниссан
5субару
6митсубиши
дествия: P=A*(B+C). Результат перевидите в 16CC?
Читайте также
Дан двумерный массив из пяти строк и пяти столбцов. Найти сумму элементов первой стоки и произведение элементов второго столбца.
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!