Question

Прошу помочь, в pascal...

Answer 1

1.                                                            

program raf105;

const

 n = 10;

var

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

 i,j,sum: integer;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     c[i,j]:= random(-9,9);

     write(c[i,j]:2,' ')

   end;

 end;

 writeln;

 writeln;

 for j:=1 to n do

   if j mod 2 = 0

     then begin

       for i:=1 to n do

         sum:= sum+c[i,j];

       writeln('Сумма элементов ',j:2,' столбца: ',sum:3);

       sum:= 0;

     end;

end.

2.                                                            

program raf105;

const

 n = 10;

 i2 = 5;

var

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

 i,j,min: integer;

 x: boolean;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     c[i,j]:= random(-9,9);

     write(c[i,j]:2,' ')

   end;

 end;

 writeln;

 for j:=1 to n do

   if c[i2,j] < 0

     then begin

       min:= c[i2,j];

       x:= True;

       break

     end;

 if x then begin

   for j:=2 to n do

    if c[i2,j] < min

      then min:= c[i2,j];

   c[i2,1]:= min;

   writeln;

   writeln('Вывод:');

   for i:=1 to n do

   begin

    writeln;

     for j:=1 to n do

      write(c[i,j]:2,' ')

   end;

 end

 else writeln('В 5 строке отрицательных элементов не найдено.');

end.

3.                                                            

program raf105;

const

 n = 10;

var

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

 i,j,pro: integer;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     c[i,j]:= random(-9,9);

     write(c[i,j]:2,' ')

   end;

 end;

 writeln;

 writeln;

 pro:= 1;

 for i:=1 to n do

   pro:= pro * (c[i,n-(i-1)]);

 writeln('Произведение побочной диагонали: ',pro);

end.

4.                                                            

program raf105;

const

 n = 10;

var

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

 i,j,sum,kol: integer;

 sari: real;

 x: boolean;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     c[i,j]:= random(-9,9);

     write(c[i,j]:2,' ')

   end;

 end;

 writeln;

 writeln;

 for i:=1 to n do

 begin

   for j:=1 to n do

     if c[i,j] < 0

       then begin

         if not(x)

           then x:= True;

         sum:= sum + c[i,j];

         kol:= kol + 1;

       end;

 end;

 if x

 then begin

   sari:= sum/kol;

   writeln('Среднее арифметическое отрицательных элементов: ',sari:0:2);

 end

 else writeln('Отрицательных элементов не найдено');

end.

5.                                                            

program raf105;

const

 n = 10;

 j2 = 2;

var

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

 maxj2,maxs: array[1..n] of integer;

 i,j,l,ll,max,maxpos: integer;

begin

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

   begin

     c[i,j]:= random(-9,9);

     write(c[i,j]:2,' ')

   end;

 end;

 writeln;

 writeln;

 for i:=1 to n do      // Начало 1 Заполнения массива второго столбца

   maxj2[i]:= c[i,j2]; // Конец 1

 for i:=1 to n do      // Начало 2 Сортировка массива 2 столб. по возрастанию

 begin

   max:= maxj2[i];

   maxpos:=i;

   for j:=i to n do

     if maxj2[j] > max

       then begin

         max:= maxj2[j];

         maxpos:= j;

       end;

   maxj2[maxpos]:= maxj2[i];

   maxj2[i]:= max;

 end;                  // Конец 2

 maxpos:= 0;

 for l:=1 to n do      // Начало 3 сортировка матрицы по возрастанию 2 столб.

 begin

   maxpos:= l;

   for i:=l to n do

     if maxj2[l] = c[i,j2]

       then begin

         maxpos:= i;

       end;

   for j:=1 to n do

   begin

     maxs[j]:= c[maxpos,j];

     c[maxpos,j]:= c[l,j];

     c[l,j]:= maxs[j];

   end;

 end;                  // Конец 3

 writeln('Вывод:');

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

     write(c[i,j]:2,' ')

 end;

end.

6.                                                            

program raf105;

var

 a,x,pro: integer;

begin

 write('Введите число: ');

 readln(a);

 pro:= 1;

 while a <> 0 do

 begin

   x:= a mod 10;

   pro:= pro*x;

   a:= a div 10;

 end;

 writeln('Произведение цифр: ',pro);

end.

7.                                                            

program raf105;

uses  

 crt;

const

 glas = 'уюеэыиаяоё';

var

 s: string;

 i: integer;

 n: char;

 x: boolean;

begin

 writeln('Вводите текст, чтобы закончить поставьте точку');

 n:= readkey;

 write(n);

 repeat

   x:= True;

   for i:=1 to length(glas) do

     if ((n = glas[i]) or (n = uppercase(glas[i]))) and x

       then x:= False;

  if x

   then s:= s+n;

  n:= readkey;

  write(n);

until n = '.';

writeln;

writeln(s);

end.

                                                             

PascalABC 3.4.2