1)заполнить массив размером n целыми числами последовательно от 1 до n. вывести его на экран. найти сумму элементов массива и вывести ее на экран. 2)заполнить массив размером n целыми числами последовательно от n до 1. вывести его на экран. найти количество элементов массива, делящихся на 3 без остатка. 3)заполнить массив размером n квадратами целых чисел последовательно от 12 до n2. вывести его на экран. найти среднее арифметическое элементов массива и вывести его на экран.
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
for i:=1 to n do
begin
a[i]:=i;
write(a[i],' ');
end;
writeln;
s:=((1+n)*n)div 2;
writeln(s);
end.
2)
program gt;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
s:=0;
for i:=n downto 1 do
begin
a[i]:=i;
write(a[i],' ');
if(i mod 3=0)then s:=s+1;
end;
writeln;
writeln(s);
end.
3)
непонятно условие
там что за n2?