Заполнить массив первыми N натуральными числами

@profivsvoemdele · Регистрация: 25.11.2018

Студворк — интернет-сервис помощи студентам

Напишите подпрограмму, которая заполняет массив первыми N натуральными числами.

Размер массива заранее задан константой N. Используйте заголовок:

procedure zap(var m:TMas);

Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм.

@Puporev · 21.01.2019, 21:10

Pascal

const n=25;
type Tmas=array[1..n] of byte;
procedure zap(var m:Tmas);
var i:byte;
begin
writeln('Массив из первых ',n,' натуральных чисел');
for i:=1 to n do
 begin
  m[i]:=i;
  write(m[i]:3);
 end;
end;
var a:Tmas;
begin
zap(a)
end.

@profivsvoemdele 0 / 0 / 0 Регистрация: 25.11.2018 Сообщений: 46
		1
	Заполнить массив первыми N натуральными числами 21.01.2019, 20:45. Показов 2171. Ответов 1 Метки нет (Все метки) Напишите подпрограмму, которая заполняет массив первыми N натуральными числами. Размер массива заранее задан константой N. Используйте заголовок: procedure zap(var m:TMas); Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм. 0

Опции темы