Дан массив a из n целых чисел — информация о количестве осадков, выпавших за каждый из n дней. Требуется определить, в какие дни осадков не было.

Формат входных данных
На первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве.
На следующей строке через пробел записаны целые числа ai (0≤ai≤103) — количество осадков в i-й день.

Формат выходных данных
Требуется в одной строке через пробел вывести номера дней, в которые осадков не было.

входные данные
4
100 20 0 318

10
0 0 0 0 0 47 777 66 89 6
выходные данные
3

1 2 3 4 5

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

сетевые устройства

сетевое по

линии связи

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.

все во вложении,там в ворде блок схема,в тестовике прога,просто формат на bas поставь и компилируй свободно

сама прога:

print "vvedite chislo x! "input xclsscreen 12if x > 0 thencircle (15, 20), 5, 15elseline (15, , 300), 5, bfend ifend