"Как заполнить масив в Паскале?"


Страницы: 1
Пользователь: katya
Сообщений: 3
Статус: Пользователь
Зарегистрирован:
23 ноября 2008, 23:54
Был:24 ноября 2008, 5:17
katya
smsup 		Дата: 24 ноября 2008, 0:28 Сообщение № 1
Как заполнить масив в Паскале?
Пользователь: katya
Сообщений: 3
Статус: Пользователь
Зарегистрирован:
23 ноября 2008, 23:54
Был:24 ноября 2008, 5:17
katya
smsup 		Дата: 24 ноября 2008, 0:28 Сообщение № 2
program bilet08;
uses CRT;
var x,y,z:integer;
i:array[1..13] of integer;
begin
clrscr; randomize; gotoxy(1,10);
for x:=1 to 13 do begin i[x]:=random(75); write('| ',i[x],' |'); end;
z:=0;
for x:=1 to 13 do
begin
for y:=1 to 13 do
begin
if((i[x]=i[y])and(x<>y))then z:=1;
end;
end;
gotoxy(30,15); write('Repetitions: ');
if(z=0)then write('NO');
if(z=1)then write('YES');
readln;
end.
Пользователь: sam
Сообщений: 4
Статус: Пользователь
Зарегистрирован:
9 января 2009, 19:13
Был:12 января 2009, 3:16
sam
smsup 		Дата: 9 января 2009, 19:29 Сообщение № 3
для одномерного массива:
writeln('Как вы хотите ввести? Если вручную-нажмите 1,если автоматически-2.');
readln(c);
if c='1' then
begin
for i:=1 to n do
begin
writeln('Введите a[',i,'] элемент');
read(a[i])
end
end;
if c='2' then
begin
randomize;
for i:=1 to n do
a[i]:=random(100);
a[i]:=a[i,j]-50
end;
for i:=1 to n do
write(a[i,j]:10:2);
writeln


Страницы: 1