Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
23мб - 23352кб
512бит - 64байи
7гб- 7516192768байт
36кб - 36864байт
Компьютер способен обрабатывать информацию, которую можно превратить в сигналы: числовую, текстовую, графическую, аудио— и видеоинформацию (мультимедиа).