Так что ли?
var
a:integer;
b:longint;
begin
a:=3*3;
b:=3*3;
writeln('integer = ',a);
writeln('longint = ',b);
<span>end.</span>
индекс равен 4 (на четвертом месте находится данное число -3)
N=s+n
N=s-n
N=sn
Как уровнение
Const n=10;
var
i: integer;
var a: array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=random(1,50);
write (a[i]:3);
end;
writeln;
writeln ('Элементы, кратные 5:');
for i:=1 to n do begin
if a[i] mod 5 =0
then write (a[i]:3);
end;
end.
===================================
30 45 2 5 26 47 30 7 4 9
Элементы, кратные 5:
30 45 5 30
===================================