<span> Если число оканчивается цифрой 0, то оно делится на 5. Известно, что данное число не делится на 5. Следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0</span>
Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
Держи, всё просто, http://calculatori.ru/perevod-chisel.html
For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
C# 8.0
using System.Linq;
...
int Max = new int[]{a,b,c}.Max();