Дистанционная подготовка: НЕ ЗАСЧИТЫВАЕТ РЕШЕНИЕ
НЕ ЗАСЧИТЫВАЕТ РЕШЕНИЕ
от Ерзалия Мартова - Четверг 22 Декабрь 2016, 20:22
  в задаче № 176 я отправляю задачу и мне отвечает частичное решение и 0 пройденных тестов, в протоколе написано неправильный формат вывода
вот сама программа:
var b :array[1..100]of integer; a:array[1..100,1..100] of integer;
n,i,j,i1,k:integer;
s:real;
begin
readln(n);


for i:= 1 to n do
for j:= 1 to n do
read(a[i,j]);
for i1:=1 to n do
read(b[i1]);
for i:= 1 to n do
for j:= 1 to n do
if a[i,j]=1 then
if b[i]b[j] then inc(k);
s:=k/2;
writeln(s);
end.
Re: НЕ ЗАСЧИТЫВАЕТ РЕШЕНИЕ
от Peter Cherepanov - Четверг 22 Декабрь 2016, 21:28
  А почему переменная s не целая?