Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6
Program n1;
var sum,n,i: integer;
begin
readln(n);
for i:=3 to n do if i mod 3=0 then sum:=sum+i*i;
write(sum);
end.
Один пиксель может содержать любой из 256 = 2^8 цветов => Для кодирования 256 цветов нужно 8 бит => Для кодирования одного пикселя нужно 8 бит.
<span>PYTHON
1)
print("Hello world!\n"*100)
2)
</span><span>a = int(input())
q = int(input())
w = int(input())
e = int(input())
r = int(input())
t = int(input())
y = int(input())
u = int(input())
s = int(input())
b = int(input())
suma = (a+q+w+e+r+t+y+u+s+b)/<span>10
</span>print("Середне арифметичне = ",suma)</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, -99, 99);
a.Println;
var M := ReadInteger('Сколько последних взять?');
if m > n then
Println('Не нужно жадничать!')
else
Println('Сумма', m, 'последних равна', a.TakeLast(m).Sum)
end.