Две задачи

[Joker<777>]

1) Найти сумму положительных и количество отрицательных элементов последовательности.
2) Среди двухзначных чисел найти сумму квадратов цифр которые делется на 13

[Stilet]

Наработки в студию )

[DRAgon™]

пожалуйста мой государь,чно-нибудь еще?

uses crt;
const n1=5;
var ch,p,sum,s,n,i:Integer;
begin
s:=0;
sum:=0;
Writeln('Введите последовательносТЬЬЬЬЬЬЬ');
for i:=1 to N1 do begin
readln(n);
if (n<0) then Inc(s);
if (n>0) then sum:=sum+n;
end;
Writeln('сумму положительных - ',sum,'  Отрицательных - ',s);
end.

[DedBoroda]

program Problem2;

{$APPTYPE CONSOLE}
var i:integer;
function r1 (tmp:integer):integer;begin Result := (tmp mod 10)*(tmp mod 10);end;
function r10 (tmp:integer):integer;begin Result := (tmp div 10)*(tmp div 10);end;

begin
for i := 10 to 99 do if (r1(i)+r10(i)) mod 13 = 0 then writeln(i);
end.