В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов - Pascal ABC

Формулировка задачи:

В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов.

Код к задаче: «В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов - Pascal ABC»

textual
program abc;
const 
n=4;
var i,k,s:integer;
mas:array [1..n,1..n] of integer;
begin
for i:=1 to n do
    for k:=1 to n do
       mas[i,k]:=random(10)-5;
s:=0;
for i:=1 to n do
   for k:=i to n do 
      if mas[i,k]=0 then
        s:=s+1;
writeln(s);
end.

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ