<span>N=2014
DIM A(N) AS INTEGER
DIM I, J, K AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I
k = 0
if A(1) > A(2) and (A(1) mod 5 <> 0) then k = k + A(1)
if A(N) > A(N-1) and (A(N) mod 5 <> 0) then k = k + A(N)
for i = 2 to N-1
if (A(i) > A(i+1)) and (A(i) > A(i-1)) and (A(i) mod 5 <> 0) then k = k + A(1)
next i
print k
Именно бейсика у меня нет, так что писалось на VBS а потом добавлялись символы как думаю было бы правильно</span>
#include <iostream>
int main (){ int n ; float res = 0, r; std::cin >> n; for (int i = 0; i < n; i++) { std::cin >> r; res += 1/r; } res = 1/res; std::cout << res;}
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// №1
var a:=ArrRandom(15,-50,50); a.Println;
a.IndexesOf(t->t.IsEven).Select(t->t+1).Println;
// №2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t->t mod 3=0).Sum.Println;
// №3
var c:=ReadArrInteger(ReadInteger('m='));
c.Sum.Println;
// №4
var d:=ArrRandom(ReadInteger('n='),-60,60); d.Println;
d.Where(t->t>0).Sum.Println
end.
<u>Пример</u>
41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 7
3 6 9 10
n= 13
0 63 53 71 35 56 34 86 31 15 84 74 35
33
m= 8
13 -12 54 11 47 0 42 100
255
n= 18
52 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44
362
нота кодируется минимум тремя битами. значит 180 нот - 540 бит
Кнопка- телевизор. телефон
крышка- банк, посуда
ручка- машина
провода- техника
