Поделитесь своими знаниями, ответьте на вопрос:
ОЧЕНЬ НУЖНА БУДУ ОЧЕНЬ БЛАГОДАРЕН Сколько байт оперативной памяти будет занимать описанный массив?t: array [1..80] of boolean;Варианты ответов160100802(Сколько элементов в описанном массиве?d: array [byte] of byte;3) Сколько байт занимает описанный массив?a: array [boolean] of real;4)Как обратится к элементу массива а с индексом 5? 5)Какие варианты описания элементов массива являются правильными?Варианты ответовc: array [char] of 1..7;m: array [integer] string;t: array [real] of real;a: array [1..2] of byte;6)Сколько байт оперативной памяти в среде Pascal ABC занимает описанный двумерный массив?a: array [1..50, 1..70] of integer;Варианты ответов700070350050
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.
Пример
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33
Пояснения
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что через фильтр, будет просуммировано при
И осталось только вывести результат при тут_сумма)
Вот и все.