..................................
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
1.
В задании скорее всего перепутано и нужно найти значение переменной D т.к. значение B не меняется и постоянно будет равно 18.
переменная D = 4, цикл выполнится 4 раза.
8. Нет алгоритама для решения
16. фрагмент схемы: программа находит произведение отрицательных элементов массива
с помощью условия Хi<0 определяется отрицательный элемент
само произведение вычисляется и хранится черех переменную R
<em>MS-DOS QBasic</em>
<em>Версия 1.0</em>
<em>Copyright (C) Microsoft Corporation, 1987-1991.</em>
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
a(i) = 101 * RND - 50
PRINT a(i);
s = s + a(i)
NEXT i
PRINT
m = s / n
k = 0
FOR i = 1 TO n
IF a(i) > m THEN k = k + 1
NEXT i
PRINT "k="; k
<u>Пример</u>
n=15
-13 17 43 -39 -20 -13 -5 32 12 -10 22 -24 31 6 -19
k= 7