Если y – вещественная переменная, а n – целая, то какие из следующих операторов присваивания правильные, а какие нет? что из них истинно или ложно? y: = n+1 n: =y-1 n: =0.4 y: =trunk(y) n: =ndiv2 y: =ymod5 n: =n/2 n: =sqr(sqrt(n)) y: =round(y) y: =succ(-6)+8.567 y: = sqr(sqrt(n)) n: =sin(30) n: =cos(36)+trunk(4.56) y: =sqrt(n*7.345) y: =arctan(25) n: =sqrt(49) n: =3*2/3

Y:= N+1 trueN:=Y-1 falseN:=0.4 falseY:=trunk(Y) trueN:=Ndiv2 trueY:=Ymod5 falseN:=N/2 falseN:=sqr(sqrt(N)) falseY:=round(Y) falseY:=succ(-6)+8.567 trueY:= sqr(sqrt(N)) trueN:=sin(30) falseN:=cos(36)+trunk(4.56) falseY:=sqrt(N*7.345) trueY:=arctan(25) trueN:=sqrt(49) falseN:=3*2/3 false

1)

var

a,b:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

repeat 

write ('A[',i,'] = ');readln(a[i]);

if a[i]>0 then writeln ('Error!'); 

until a[i]<0; 

end;

writeln ('First massiv: ');

for i:=1 to 10 do write (a[i]:4);

writeln; 

writeln ('Second massiv: ');

i:=1; 

repeat

b[i]:=random(38)+3;

if odd(b[i])=true then i:=i+1; 

until i>10;

for i:=1 to 10 do write (b[i]:4);

writeln;

readln;

end.

2)

var

a,b:array [1..10] of integer;

i,k:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(15)-15;

write (a[i]:4);

end;

writeln; 

write ('Number: ');readln(k);

for i:=1 to 10 do begin

b[i]:=a[i]*k;

write (b[i]:4);

end;

writeln;

readln;

end.

Program WestDog;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,j,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();

  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(11)-5;
      write (a[i]:5);
    end;
  {сортировка массива методом прямого обмена}
  for i:=1 to n-1  do
    for j:=i+1 to n do
      if a[i]>a[j] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp;
        end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.