1. Информатика
  2. Найдите сумму всех положительных

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

yakubovskiytos yakubovskiytos    1   04.03.2019 03:30    4

Ответы
Ричард256 Ричард256  24.05.2020 01:08

var
a: array[1..20] of integer;
s,i: integer;
begin

s := 0;
for i := 1 to 20 do
begin
a[i] := random(40)-20;
if a[i] >0 then
s := s+a[i];
write(a[i]:4);
end;
writeln;
writeln(s);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
LanaAnn LanaAnn  27.09.2019 01:50
Средний уровень успеваемости 315 студентов 6 курса лечебного факультета по дисциплине «общественное здоровье и здравоохранение» составил 4,3 , среднеквадратическое отклонение...
korzhukova021 korzhukova021  27.09.2019 01:50
Программа нужна на c# текущее время (часы, минуты, секунды) задано тремя переменными h,m,s. округлить его до целых значений минут и часов...
Dashawifi Dashawifi  21.04.2020 20:00
очень нужно сдать до завтра( Надо сделать в Pascal ABC (модуль Graph) три флага: Украина, Македония и Сирия. Скиньте фото или текст программы, главное чтобы работало...
ramazanovmagomed ramazanovmagomed  21.04.2020 20:00
в чем ошибка Вот само задание: В массиве хранится информация о количестве осадков, выпавших за каждый день июня. Определить общее количество осадков, выпавших за каждую...
kycokbatona kycokbatona  21.04.2020 20:00
Назовите предмет,действием которого является запись оценок и замечаний; изображение на бумаге​...
evgenqj2002 evgenqj2002  11.08.2019 15:30
Сколько различных решений имеет система уравнений? (¬x1 → ¬x2)/\(x2 → x3)/\(¬x3 → ¬x4)/\(x4 → x5)=1 (¬у1 → ¬у2)/\(у2 → у3)/\(¬у3 → ¬у4)/\(у4 → у5)=1 x1 → у1 = 1 где...
myxa00mop myxa00mop  21.05.2020 13:23
Как в ячейки ЭТ будут записаны следующие числа?...
AIDA196 AIDA196  21.05.2020 13:22
Задача А (26)Користувач вводить три числа в один рядок через пробіл. Знайти суму тих чисел, які діляться на 5. Якщо таких чисел немає, то вивести eтor.ПримерыВходные...
kafdiana9 kafdiana9  21.05.2020 13:22
Дана программа: Program Test3; Var a, b : integer; s : string; F : Boolean; Begin a := 100 mod 30; b := 100 div 30; s := ‘100’ + ‘30’; f := 100 30; End. Определите значения...
vadhmv vadhmv  22.12.2020 20:21
Створіть програму, яка буде виводити факторіал введеного числа. Використовувати готові функції та модулі заборонено....

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