Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.
<span>var
i:integer;
begin
i:=2;
while i<=100 do
begin
write (i,' ');
i:=i+2;
end;
end.</span>
Ответ:
https://tproger.ru/problems/python-3-exercises-for-beginners-geekbrains/
Объяснение:
1.
t = [1, 1, 4, 3, 2, 5, 8, 13, 21, 34, 56, 90, 135]
for i in range(len(t)):
if i < 5:
print(t[i])
2.
result = []
for elem in a:
if elem in b:
result.append(elem)
print(result)
3.
result = sorted(my_dict, key=my_dict.get, reverse=True)[:3]
Слово<span> ‘компьютер’ ...является транскрипцией </span>английского слова<span> computer, что означает </span>вычислитель<span>. </span>Английское<span> понятие ‘computer’ </span><span>гораздо шире, чем понятие ‘компьютер’ в русском языке.</span>
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.