1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal 2)составьте программу
10-11 класс
|
вычисления суммы элементов от первого отрицательного и до конца. Pascal
program massiv1;
uses CRT;
var i,N,P:integer;
a:array [1..N] of integer;
begin
P:=1;
read(N);
for i:=1 to N do
begin
read a[i];
end;
for i:=1 to N do
begin
if a[i] >o
then
P:=P*a[i];
end;
write(P);
readkey;
end.
Другие вопросы из категории
систему счисления числа и заполнить таблицу
1. Дано целое число. Верно ли, что оно делится на 5 и на 7?
2. Даны два целых числа. Верно ли, что они заканчиваются на одну и ту же цифру?
3. Определить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x, y.
4. Дано квадратное уравнение ax2+bx+c=0. Найти корни уравнения.
Читайте также
элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
2. Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE