Войти Регистрация Спроси ai-bota

Составить программу для решения . найти сумму всех положительных элементов массива

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

лольтоаш

25.12.2020 19:16

Знайти периметр і площу квадрата якщо відома довжина його сторони а P=4a S=a*a...

руслан746

09.02.2022 06:03

1) Вставь пропущенное слово Первая массовая компьютерного вируса произошло в 1986 году. 2) Выбрать правильное определение «Компьютерного квируса» А) Это система хранения файлов...

NAstiu1

10.05.2020 05:56

Написать на питоне(Python) сам никогда не работал с ним 1) Даны два вектора MAT_1 = [[0.6583596987271446, 1.0128241391924433], [0.37783705753739877, 0.42421340135829255],...

orxanalizade894

12.09.2020 05:31

1.дано целое число n.написать программу ,увеличивающую число в 3 раза ,если оно больше нуля 2.дано целое число n.написать программу ,заменяющую его нулём ,если больше или...

surmistovak

12.09.2020 05:31

восприятия информации - 8 учебник босова...

147387492

12.09.2020 05:31

Нужна ! целый день ломаю голову. программа на паскале. найти максимальное среди элементов массива кратных 3. структура программы надо как у меня, но паскаль ругается на 15...

QAZPLM11

31.01.2022 15:22

Даны два числа m и n. заменить большие число на меньшее и вывести эти числа на экран....

snezhana9197

29.12.2021 20:23

Нужно ли ставить запятую перед и? я гашу лампу и ночь начнет медленно светлеть...

Anastasiya6565

29.12.2021 20:23

До якого джерела енргії належить вітер...

lisa1003

29.12.2021 20:23

Втрех ящиках было 76 кг вишни. во втором ящике было в 2 раза больше, чем в первом, а в третьем на 8 кг больше вишни, чем в первом. сколько килограммов вишни было в каждом...

Ответ:

Linarikkomarik

18.09.2020 21:23

Var ar:array[1..10] of integer;
s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.

0,0(0 оценок)

Ответ:

di630

18.09.2020 21:23

For I:=a to b do if mass[I] > 0 then sum:=sum+mass[I];

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку