Предмет: Информатика,
автор: TheMonstercat
Построить одномерный массив по правилу: i-ый элемент равен i-100
Ответы
Автор ответа:
0
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.
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do a[i]:=i-100;
end.
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: mmmmeasno
Предмет: Английский язык,
автор: Аноним
Предмет: Химия,
автор: Аноним
Предмет: Математика,
автор: keti444