Решите ! сформировать массив множителей заданного числа. язык программирования - паскаль., ! дана матрица b(4, 3 заменить отрицательные элементы произведением положительных элементов. языка программирования - паскаль.

var  a: array[1..1000] of integer;   n, i, j: integer;   flag: boolean; begin  a[1] : = 0;   write('n = '); readln(n);   for i : = 2 to trunc(sqrt(n)) do    if n mod i = 0 then    begin      a[1] : = i;       n : = n div i;       break;     end;   if a[1] = 0 then  begin    writeln(n);     exit;   end;   i : = 1;   while n < > 1 do  begin  flag : = false;     for j : = a[i] to trunc(sqrt(n)) do      if n mod j = 0 then      begin        a[i + 1] : = j;         inc(i);         n : = n div j;         flag : = true;         break;       end;     if (not flag) and (n < > 1) then    begin      a[i + 1] : = n;       inc(i);       break;     end;   end;

 

 

//вторая программа

 

const m = 4; n = 3; var a: array[1..m, 1..n] of integer; i, j, pr: integer; begin randomize; pr : = 1; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(21) - 10; if a[i, j] > 0 then pr : = pr * a[i, j]; write(a[i, j]: 4, ' '); end; writeln; end; writeln; writeln('преобразованный массив'); for i : = 1 to m do begin for j : = 1 to n do if a[i, j] < 0 then write(pr: 8, ' ') else write(a[i, j]: 8, ' '); writeln; end; readln; end.

  for j : = 1 to i do    write(a[j], ' ');   readln; end.

 

 

Как-то так #include < iostream> using namespace std; int main(){    cout < < "vvedute kol-vo ocenok" < < endl;     int n,i,a,four,five;     n = i = a = four = five = 0;     cin > > n;     for (i = 1; i < = n; i++)    {        cin > > a;         if (a == 4){          four++; }   else if (a == 5)      {          five++;       }    }    if (four > five){    cout < < "four" < < endl; } else if (five > four)      {    cout < < "five" < < endl;       }      else      {          cout < < "equal"< < endl;       }      cout < < "kol-vo 4: " < < four < < " kol-vo 5: " < < five < < endl;     return 0; }

Program qq;   var x, y, z, c, a, b: real;   begin  writeln('введите стоимость билета бизнесс-класса: ');   readln(x);       if x > 0 then  begin    y: = x / 2;     writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');     readln(a, b);           if (a > =0) and (b > = 0) then      begin        c: = a*x + y*b;         z: = (120*y + 40*x) - c ;         writeln('доход авиакомпании: ', z);       end      else      writeln('решение невозможно');   end;   end.вот так всё работает. 1.  не там поставили end; 2. лишнее  else  writeln('решение невозможно'); 3. у меня ругался паскаль на то что в условия  при and не взяты в круглые скобки.  if (a > =0) and (b > = 0) then