begin
for i:integer:=1 to 7 do
writeln(‘Семь раз отмерь, один раз отрежь’);
end.
Линейный алгоритм<span> - это такой, в котором все операции выполняются последовательно одна за другой. Хоть бы загуглил прежде чем баллы тратить</span>
Var n:integer;
a:Array[1..100] of integer;
begin
read(n);
for i:1 to N do
begin
a[i]:random(10);
a[i]=a[i]*2;
writeln(a[i]);
end;
end.
Контрольная есть контрольная, сорри