1. Информатика
  2. Подскажите, составить программу

Подскажите, составить программу вычесления: суммы всех положительных элементов массива. буду .

79854246143TATIANA 79854246143TATIANA    2   20.05.2019 18:40    0

Ответы
qwer54321asdfrewq qwer54321asdfrewq  14.06.2020 06:07

var

a:array[1..1000]of integer;

i,sum:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

read(a[i]);

inc(sum,a[i]);

end;

writeln(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aaahhjbffyji aaahhjbffyji  10.09.2020 19:20
python. напишите программу, которая считывает три числа и выводит их сумму. каждое число написано в отдельной строке.​...
Daina1115 Daina1115  10.09.2020 19:16
Не себепті Интернеттегі ақапаттың барлығы шынайы ақпарат емес?​...
alina555557 alina555557  10.09.2020 19:26
Посчитаем количество информации на одной странице печатной книги, если страница содержит 78 строк, а в каждой строке 85 символов. И книга написана на русском языке.​...
vadimmatus vadimmatus  10.09.2020 19:50
За 10 секунд по каналу связи было передано 5 Кб информации. Скорость передачи данных равна: Варианты ответов: 512 байт/с 512 бит/с 4096 байт/с 64 бит/с...
Диана1Котова Диана1Котова  31.03.2020 12:44
Python Как в этом коде,убрать квадратные скобки при выводе в print(f You entered : {lst} ) ,на что надо заменить lst = [ ] lst = [] count = 0 sm = 0 while True: try: lst += [int(input())]...
ХУХ00001 ХУХ00001  31.03.2020 12:46
Определи основание системы счисления числа101101010²​...
kononovadm kononovadm  31.03.2020 12:21
Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов – . КАЖДУЮ СТРОЧКУ НУЖНО ЗАКОММЕНТИРОВАТЬ. (НУЖНО СДЕЛАТЬ ПИТОНОМ)...
kapitan2001 kapitan2001  02.10.2019 03:01
Закодируйте слово байт, если известно, что в таблице ascii а=128, б=129, в=130, …. т=146....
Alinka2128 Alinka2128  02.10.2019 03:01
Зязувати чи потрапляє точка м(х,у),в коло с радiусом r та центром с початку координат...
Sonya20071451 Sonya20071451  02.10.2019 03:01
Верны ли следующие утверждения? 1. при установке windows программа калькулятор требует дополнительной установки. 2. клавиша “n! ” в программе “калькулятор” вычисляет факториал. а)...

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