Program p1;
const n=100;
var a:array[1..100]of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,20);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then s:=s+a[i];
end;
Writeln('Сумма чётных чисел = ',s);
end.
Это и есть процессор,потому что он имеет связи с внутренней памятью,также без него не может работать никакой комп,это 100% он
P.S сделай лучшим ответом если помог)
См фото
=========================
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ArrGen(17,i->real(i+1)); s.Println;
(s[10:]+s[9::-1]).Println
end.
<u>Пример</u>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1
Солнце нужно для растения что бы растение выделяло фото синтез или дышало