Программа должна выводить за на полет стрелы и при утвердительном ответе изобразить летящую стрелу слева направо до конца графического окна. При отрицательном ответе должен быть выход из программы. Использовать вложенный цикл с предусловием. Внешний цикл организует за и получает ответ пользователя, а внутренний цикл выполняет полет стрелы.

Uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer;
index,sum:integer;
procedure max_el;
begin max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do begin for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end.

Матричный принтер содержит печатающую головку с 9 или 24 иголками. Иголки нажимают на ленту с красящим слоем и оставляют точки на бумаге. В струйном принтере печатающая головка выплевывает краску из сопел на бумагу под действием давления. А в лазерном принтере есть специальный барабан, который лазером же намагничивается в определенных местах. Потом он собирает графитную краску на намагниченные места и прокатывается по листу бумаги, перенося ее. У лазерного принтера, как видно, сухой принцип работы.