Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Двумерный буквенный массив

92K
31 октября 2013 года
Махаббат Кужаниязова
1 / / 31.10.2013
Есть рандомно заполненный массив буквами(Нужно вписывать буквы и чтобы определил позицию этой буквы в массиве)
var
a:array[1..10,1..10]of string;
i,n,m,j,d:integer;
begin
randomize;
read(n,m);
For i:=1 to n do
for j:=1 to m do
begin
d:=random(90-65+1)+65;
a[i,j]:=chr(d);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end;
readln;
readln;
end.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог