<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(6, -1, 5);
a.Println;
Writeln('Сумма положительных значений равна ',
a.Where(t -> t > 0).Sum)
end.
<h2>Пример</h2><h3>2 5 1 0 -1 3</h3><h3>Сумма положительных значений равна 11</h3>
===== PascalABC.NET =====
begin
var a := ArrRandom(50, -99, 99);
a.Println;
var b := ReadArrReal('Ведите 10 чисел:', 10);
b.Println;
end.
Дано:
N=101 (т.к. от 0 до 100 включительно)
K=8192
решение:
N=101 => 128=2^7 (в 7 степени), отсюда i=7бит
I=K*i=8192*7=57344 бит или = 2^13*7 бит=7кб
Ты забыл поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if x>y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.
чтобы тебе было проще, выстраивай иерархию вложенности, т.е если у тебя есть вложенное условие, цикл и другие структуры, выделяй их пробелами как на рисунке в учебнике
Не знаю, о какой схеме идет речь, но количество слов определить элементарно.
Всего есть 3 позиции, на каждой из них может стоять один из двух символов.
Значит искомое количество слов = 2*2*2 = 8.