Как определить, правильно ли решена по

ответ:

пересчитай все, но в противоположном направлении, то есть начать все со своего ответа, если 2-ой ответ совподает с условием, то ты решил правильно. ну или в интернете посмотри

Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10 // pascalabc.net 3.0,сборка 1076 begin   var n: =readinteger('длина последовательности: ');   var a: =arrrandom(n,-50,50);   writeln('исходная последовательность');   a.println;   writeln('сумма элементов: ',a.sum);   write('кол-во четных, кратных пяти: ');   writeln(a.where(x-> x mod 10 = 0).count) end. тестовое решение: длина последовательности: 20 исходная последовательность -4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15 сумма элементов: -184 кол-во четных, кратных пяти: 1

Program n1; uses crt; const nn=1000; var i,j,n,k: integer; m: array[1..nn,1..nn] of integer; begin randomize; writeln('введите размерность массива');   readln(n); for i: =1 to n do        for j: =1 to n do m[i,j]: =random(100)-50; for i: =1 to n do   begin     for j: =1 to n do  write(m[i,j]: 4,' '); writeln;   end; for i: =1 to n do     for j: =1 to n do         if (i=j) and (m[i,j]> 0) then k: =k+1; writeln(k); end.