Паскаль.
5-9 класс
|
Вычислить произведение элементов Р[1..20] больших 0.
program i13;
var
proisv,p,i:integer;
a:array[1..20] of integer;
begin
readln(p);
proisv:=1;
for i:= 1 to p do
if a[i]>0 then
proisv:=proisv*a[i]
writeln(proisv);
end.
Другие вопросы из категории
9x³-18x²-x+2=0;
y⁴-y³-16y²+16y=0;
p³-p²=p-1;
x⁴-x²=3x³-3x.
пожалуйста помогите
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i