заполните массив состоящий из 10 элементов элементами последовательности А=3n^2 и выведите на первой строке все элементы, на второй первый и последний

Question

Информатика

Лидия

5 июля, 06:16

заполните массив состоящий из 10 элементов элементами последовательности А=3n^2 и выведите на первой строке все элементы, на второй первый и последний

+1

Ответы (1)

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

Радим · Answer 1

var a:array[1 ... 10] of integer;

var i:integer;

begin

for i:=1 to 10 do a[i]:=sqr (3*i) ;

for i:=1 to 10 do write (a[i],' ') ;

writeln;

writeln (a[1],' ', a[10]) ;

readln;

end.