1)составьте программу вычисления в массиве а, содержащего n элементов, произведения положительных чисел. pascal 2)составьте программу вычисления суммы элементов от первого отрицательного и до конца. pascal
gltomilovglebnopi
2
21.05.2019 05:01
1
Другие вопросы по теме Информатика
asyltas123
28.05.2019 20:50
ASTRA5555
08.07.2019 14:42
Лераuse
08.07.2019 16:00
ImperatorrPhysics
08.07.2019 16:00
НастяМосква13
02.06.2019 16:20
4chanus
09.05.2020 21:12
Patara1986
09.05.2020 21:23
Tipaniktuta
09.05.2020 21:08
Популярные вопросы
- Winter Spring Summer Autumn 17. Now that you ve read the text once, match...
2 - Проверяется грамматическая тема «Модальные глаголы» Ergänzen Sie die passenden...
1 - решить лабораторную работу по физике ...
3 - 10.Укажите номер верного высказывания. 1.Слово больной в словосочетании больной...
2 - побыстрееP.Sнажмите на фото что бы увидеть картинку полностью...
2 - Vocabulary1 a) Circle the house wordsb) Write the words in two groups.InsideOutside...
3 - Из перечисленных чисел выбрать все целое 20,3,2 7/15,14,-7,18...
3 - Даны: 1) множества A = {1,2,3,4,5,6,7,8,9,10} и B = {1,2,3,4,5,6}; 2) отображения...
2 - Вычислите массу водорода, который затрачен на востановление оксида меди (2),и...
1 - Расставь знаки препинания. Укажи два предложения, в которых нужно поставить...
3
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.