1. Что будет записано в ячейках А2 и C1 при копировании
ячейки A1?
(5задание,нижнее)
Работу надо выполнить на компьютере,ноутбуке

Объяснение:

Pascal

program pr;

 

var

 i, n, k, cout: integer;

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

 

begin

 cout := 0;

 k := 1;

 writeln('Введите размер массива');

 readln(n);

 if (n>0) and (n<=10000) then  

 begin

 for i := 1 to n do

 begin

   read(a[i]);

 end;

 writeln;

 for i := 1 to n do

   if a[i] < 0 then

   begin

     cout := cout + 1;

     b[k] := a[i];

     k := k + 1;

   end;

 if cout = 0 then

   writeln(0) else  

   for k := 1 to cout do

     write(b[k]:3);

     end

     else writeln('Не корректный ввод n');

end.

While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;