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

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

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

Question

Информатика

Кандидий

8 марта, 02:50

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

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

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

+3

Ответы (1)

Знаете ответ на вопрос?

Авдоким · 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?