Построить одномерный массив по правилу: i-ый элемент равен i-100

Question

Информатика

Валентин

7 апреля, 18:10

Построить одномерный массив по правилу: i-ый элемент равен i-100

+4

Ответы (2)

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

Иня · Answer 1

Program prog;

Uses crt;

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

i, n: integer;

begin

clrscr;

write ('Size = ') ;

readln (n) ;

for i:=1 to n do

begin

a[i]:=i-100;

write ('a[', i,']=', a[i],' ') ;

end;

end.

Виктория · Answer 2

Program n1;

const n=10;

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

i: integer;

begin

for i:=1 to n do a[i]:=i-100;

end.