Question

1)Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран.

2)Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран. Найти количество элементов массива, делящихся на 3 без остатка.

3)Заполнить массив размером N квадратами целых чисел последовательно от 12 до N2. Вывести его на экран. Найти среднее арифметическое элементов массива и вывести его на экран.

 

Answer 1

program gt;
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?

Answer 2

число)