Pascal !! Помогите пожалуйста)Надо составить программу в Паскале, где в двумерном

0
Ответов - 2
Pascal !! Помогите пожалуйста)Надо составить программу в Паскале, где в двумерном массиве

Вопрос задал ученик
Категории: Информатика

Ответы


Гость
Решение задачи на PascalABC (листинг программы по ссылке, сейчас ее попробую передать)
Гость
Var
   i,j,s:integer;
   a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  for j:=1 to 10 do
    begin
    a[i,j]:=random(-10,10);
    if (a[i,j]=0) and (i=j) then s:=s+1;
    write(a[i,j]:3)
    end;
  writeln
  end;
writeln('Число нулей на главной диагонали: ',s)
end.
Добавить ответ
Похожие вопросы
Топ Комментарии Архив
«    Июль 2020    »
ПнВтСрЧтПтСбВс
 12345
6789101112
13141516171819
20212223242526
2728293031 
Теги