Под какими БУКВАМИ записано БЕЗ ОШИБОК А) For i:=1 to 10 do x:=x+1; y:=sqr(y); Б) For i:=1 to N do y:=y/2; В) For i:=10 to 1 do x:=x+y; Г) For i:=1 to 15 do begin x:=sqr(x); y:=sqr(y); end; Под какими БУКВАМИ записано С ОШИБКАМИ А) while x:=(x*y)/2 do until (i<10) Б) while i<=10 do begin x:=2+y; i:=i+1; end; В) repeat until i>10 do y:=y+2; i:=i+1; Г) repeat begin i:=i+1; y:=y+2; end; until i>10 Д) repeat y:=x/2; i:=i+1; writeln (y) until i>20

program raf105;

const

 n = 3;

var

 m: array[1..n, 1..n] of integer;

 x: boolean;

 i,j: integer;

begin

 writeln('Матрица:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=1 to n do

   begin

     m[j,i]:= random(10,99);

     write(m[j,i],' ');

   end;

   writeln;

 end;

   

 writeln('Номера убывающих строк:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=2 to n do

     if not(m[j,i] < m[j-1,i]) and x then

       x:= False;

   if x then

     write(i,' ');

 end;  

end.

PascalABC

1. 
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do begin
readln(o[i]);
if o[i]<0 then a:=a+o[i];
end;
writeln(a);
end.

2.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do readln(o[i]);
a:=o[n];
for i:=n-1 downto 1 do o[i+1]:=o[i];
o[1]:=a;
for i:=1 to n do  write(' ',o[i],' ');
end.

3.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
P:array[1..n] of integer;
M:array[1..n] of integer;
begin
for i:=1 to n do begin
readln(o[i]);
if o[i]>0 then p[i]:=o[i];
if o[i]<0 then m[i]:=o[i];
end;
for i:=1 to n do write(' ',o[i],' ');
writeln;
for i:=1 to n do
if p[i]<>0 then
write(' ',p[i],' ');
writeln;
for i:=1 to n do  
if m[i]<>0 then
write(' ',m[i],' ');
writeln;
end.