Найдите количество элементов двумерного массива A[1..5,1..5] равных 1. Массив заполните случайными числами в диапазоне от -10 до 10. Вывести массив на экран в виде таблицы и количество элементов равных 1.

VAR
a:array[1..5,1..5]of integer;
i,j,k:integer;
begin
  for i:=1 to 5 do
     begin
       writeln;
          for j:=1 to 5 do
               begin
                  a[i,j]:=random(21)-10;
                   write(a[i,j]:4);
                      if a[i,j]=1 then
                        k:=k+1;
               end;
      end;
writeln;
if k=0 then
   writeln(нет =1)
else
    writeln(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.