1. Информатика
  2. Дан целочисленный массив размером

Дан целочисленный массив размером 15.найти сумму отрицательных элементов

Яхшибой Яхшибой    1   04.10.2019 03:10    0

Ответы
SillyLittleFool SillyLittleFool  09.10.2020 18:41

const n=15;

var m:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(41)-20;

if m[i] < 0 then s:=s+m[i];

write(m[i],'  ')

end;

writeln;

writeln('Сумма отрицательных элементов: ',s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
temachbatman temachbatman  24.08.2019 00:00
Восновной программе вводятся стороны треугольника a, b, c. в модуле проверяются неравенства треугольника (a...
nzotov299 nzotov299  24.08.2019 00:00
Нужно создать массив по принципу змейки с одним вложенным циклом. вводим только параметры сетки. пример: 4 5 1 8 9 16 17 2 7 10 15 18 3 6 11 14 19 4 5 12 13 20...
myyllaas myyllaas  24.08.2019 00:00
Даны два целых числа a и b. напишите программу, которая находит среднее арифметическое квадратов всех целых чисел от a до b входные данные: в первой строке вводятся два...
prosto52 prosto52  18.05.2021 22:52
Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г и Д, используется неравномерный двоичный код: А-0, Б-1, В-00, Г-01, Д-11. Измените коды некоторых...
2dybala1 2dybala1  18.05.2021 22:55
СДЕЛАЙТЕ ТРАССИРОВОЧНУЮ ТАБЛИЦУ #include #include using namespace std; int ves, rost, vozrast, ideal, different, k; string pol, otvet; void Inform()//введение информации...
merobox13 merobox13  14.02.2021 14:46
После преобразования растрового 32-цветного графического файла в черно-белый формат (2 цвета) его размер уменьшился на 42 Кбайт. Каков был размер исходного файла в Кбайтах?...
ВиГуки247 ВиГуки247  14.02.2021 14:51
очень нужно на завтра. Написать программы (в VB) к задачам хотя бы с 1 Первая на фото. Вторая : прямая y = kx + b, все значения вводятся с клавиатуры. Надо вывести сообщение....
olga195888 olga195888  01.10.2019 20:20
Дано натуральное число n. получить новое число м, которое образуется из числа n путем замены последней цифры на значение наибольшей цифры в записи числа n. пример. n=...
irina0208ga irina0208ga  01.10.2019 20:20
Алфавит состоит из строчных и прописных букв языка. информационный вес 1 символа...
fatima52 fatima52  19.05.2019 16:00
Для составления цепочек разрешается использовать бусины пяти типов, обозначаемых буквами а, д, г,о,у.каждая цепочка должна состоять из трёх бусин, при этом должны соблюдаться...

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