Question

Заполните целочисленный массив А размерностью 10 элементов по формуле 2 + 3m, где m — порядковый номер элемента массива, и выведите его на экран монитора в одну строку.
Сохраните программу и оправьте на проверку учителю.

Answer 1

var a:array[1..10] of integer;
m:integer;
begin
for m:=1 to 10 do
begin;
a[m]:=2+3*m;
writeln(a[m]);
end;
end.