var
i,n,s, k : integer;
begin
s:=0;
readln (n);
for i:= 1 to n do begin
readln (k);
if k mod 10 =0 then s:= s+k;
end;
writeln (s);
end.
A)97 43 98
b)70 79 82 32 73 61 32 84 79 32 78
c)32 80 82 73 78 84 32 65 83
d)78 69 88 84 32 73
e)80 65 85 83 69
Вроде всё правильно
Конечно опасней биологический вирус, он может заразить разными балячками людей и животных. А компьютерный вирус может лишь сломать компьютер, и то не всегда например если стоит антивирусник.