program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
var a:array[1..n] of integer;
i,k: integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
writeln;
k:=0;
i:=n;
while (i>0)and(k<2) do
begin
if a[i] mod 3 = 0 then k:=k+1;
i:=i-1;
end;
if k=2 then writeln('Искомый номер = ',i+1)
else writeln('Нет ');
end.
Пример:
22 13 42 48 26 2 18 30 11 31
Искомый номер = 7