Алгоритм Линейный Потому-что Действие идет один за другим и отсуствует разделения на действия
Var i,q:integer;s:real;a:array[1..10]of integer;beginfor i:=1 to 10 do begina[i]:=random(100);s:=s+a[i];end;s:=s/10;for i:=1 to 10 do beginwriteln(a[i]);if a[i]>s then q:=q+i;end;writeln(q);end.
512x512 = 2^9 * 2^9 = 2^18 бит
256 = 2^8 = 8 бит
2^18 * 2^3 = 2^21 бит
2^21 : 2^13 = 2^8 = 256 кбайт