Заполните целочисленный массив А размерностью 10 элементов по формуле 2 + 3m, где m — порядковый номер элемента массива, и выведите его на экран монитора в одну строку.
Сохраните программу и оправьте на проверку учителю.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
