Заполнить массив строчными буквами латинского алфавита

@boris370 · Регистрация: 11.12.2009

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

Заполнить массив строчными буквами латинского алфавита. Нужно максимально примитивное решение.

@Ev[G]eN · 17.02.2012, 20:25

Pascal

const
  Max_Value = 25;
var
  arr: array[1..Max_Value] of char;
  i, n, ch: integer;
begin
  randomize;
  repeat 
    writeln('Введите кол-во элементов: ');
    readln(n);
  until (n in [1..Max_Value]);
  writeln('Массив: ');
  for i:=1 to n do
  begin
    ch:=random(65, 90);
    arr[i]:=chr(ch);
    write(arr[i], ' ');
  end;
end.

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
		1
	Заполнить массив строчными буквами латинского алфавита 17.02.2012, 19:38. Показов 4398. Ответов 1 Метки нет (Все метки) Заполнить массив строчными буквами латинского алфавита. Нужно максимально примитивное решение. 0

	17.02.2012, 20:25

Заполнить массив строчными буквами латинского алфавита

Решение