Язык программирования паскаль. 1) найти количество отрицательных элементов в массиве а [3,8]. 2) заполнит и вывести массив р [6,7], запросить номер строки и вывести её на экран. 3) заполнить и вывести массив р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив. 4) в квадратной матрице а [10,10] заменить элементы главной диагонали на 0. всё нужно

1var   i, j, n: integer;   a: array[1..3, 1..8]of integer; begin for i : = 1 to 3 do   begin        for j : = 1 to 8 do     begin     a[i, j] : = random(-9, 9);     write(a[i, j]: 3);     if a[i, j] < 0 then n : = n + 1;     end;   writeln;   end;   writeln('количество отрицательных: ', n);     end.2var  i, j, n: integer;   p: array[1..6, 1..7]of integer; begin  for i : = 1 to 6 do  begin  for j : = 1 to 7 do    begin    p[i, j] : = random(-9, 9);     write(p[i, j]: 3);     end;   writeln;   end;   write('какую строку вывести: ');   readln(n);   for j: =1 to 7 do  write(p[n,j]: 3); end.3var  i, j, n: integer;   p: array[1..6, 1..7]of integer; begin  for i : = 1 to 6 do  begin        for j : = 1 to 7 do    begin    p[i, j] : = random(-9, 9);     write(p[i, j]: 3);     end;   writeln;   end;   write('какую строку изменить: ');   readln(n);   for j: =1 to 7 do p[n,j]: =5;   for i : = 1 to 6 do  begin        for j : = 1 to 7 do write(p[i, j]: 3);   writeln;   end; end.4var  i, j, n: integer;   a: array[1..10, 1..10]of integer; begin  for i : = 1 to 10 do  begin  for j : = 1 to 10 do    begin    a[i, j] : = random(-9, 9);     write(a[i, j]: 3);     end;   writeln;   end;   for j: =1 to 10 do a[j,j]: =0;   writeln('измененный массив: ');   for i : = 1 to 10 do  begin  for j : = 1 to 10 do write(a[i, j]: 3);   writeln;   end; end.

ответ: На во ответил правильно, не понял...... тебе перевод нужен?????

Объяснение:не знаю ли тебе это:

program test;

uses crt;

var i,right,mark,v: longint;

   answer,true1,true2,true3,true4,true5: char;

begin

 right:=0;   // Счётчик правильных ответов

 v:=5;       // Количество во Правильный ответ на во Во Вариант ответа');

        writeln('b) вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true1 then inc(right);

     end;

     if i=2 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true2 then inc(right);

     end;

     if i=3 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true3 then inc(right);

     end;

     if i=4 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true4 then inc(right);

     end;

     if i=5 then begin

        writeln('Во Вариант ответа');

        writeln('b) Вариант ответа');

        writeln('c) Вариант ответа');

        read(answer);

        if answer=true5 then inc(right);

     end;

 end;

 if right>1 then mark:=right

 else mark:=2; // Оценка, если во больше 5, то там другая формула.

 writeln('Ваша оценка ',mark,'. Вы дали ',right,' правильных ответов');