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

Сохраните программу и оправьте на проверку учителю.

Question

Информатика

Ипатий

16 марта, 07:13

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

Сохраните программу и оправьте на проверку учителю.

+4

Ответы (2)

Знаете ответ?

Харита · 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.

Артур · Answer 2

Var

A: Array[10] of integer;

i:integer;

Begin

for i : = 1 to 10 do

A[i] = 2 + 3*i;

for i : = 1 to 9 do

write (A[i], ' ') ;

writeln (A[10]) ;

End.