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

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

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

↓

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

SemMandarenova

22.08.2021 05:23

Нарисуйте блок-схему дома для 5 класса 18...

vladplotnikov2

15.01.2023 09:39

Заполните массив случайными числами в диапазоне 20..100 и подсчитайте отдельно число элементов с четными и нечетными значениями...

romchik228666

15.01.2023 09:39

Надо написать программу по данному натуральному n вычислите сумму 1^2+2^2++n^2. входные данные вводится единственное натуральное число n, не превосходящее 100 выходные данные необходимо...

Ramazan1403

17.04.2023 14:23

2. Задача. Рисунок размером 1024*512 пикселей сохранили в файле размером 256 Кбайт. Какое количество информации былоиспользовано для кодирования цвета пикселя? Какое использовано...

Срочноооооопжлст

21.03.2022 06:29

Задание 1. Найдите значения логических выражений: ((0 V 0) V 1) V 1 & (0 V 1) V Задание 2. Упростите логическое выражение: и) A & (B V ¬C) V ¬A & B...

suleimanzhasulan

21.03.2022 06:29

Ограничение времени: 1 с Оставшиеся посылки: 100 Паутина Паучок находится в левом нижнем углу клетчатой доски размерами Nх N, где каждая кле как во время движения паучок плетет паутину,...

ХацуноМико

27.01.2023 11:45

Можно ли использовать коммутатор в качестве повторителя....

kharchenko219633

01.03.2023 15:39

Однажды к королю Го приехал посол из соседней страны Луа. Посол прибыл на прием с целью обсудить возможный союз двух государств. Он принес в подарок четное число мешков N, доверху...

ПандаВера

12.05.2023 12:05

Асет создал таблицу для расчета стоимости канцелярских товаров. запишите формулу которая используется в ячейке д2...

Mikich2

06.03.2022 06:50

Представте число 271,756¹⁰ в форме с плавающей запятой,под мантиссу выделити 10 разрядов под порядкоок 4...

Ответ:

Aarna

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 оценок)

Ответ:

санс

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 Оформи подписку