Question

Составить программу по которой заполняется массив а [1..30] случайным образом символами английского алфавита (по кодовой таблице от A до Z), а на экран потом выводятся только буквы из этого массива, стоящие до буквы G.

Answer 1

program abc;

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

i:integer;

begin

Randomize;

a[1]:= 65+ random (25);

for i:=2 to 30 do  

begin

if (a[i-1]=75) or (a[i-1]=0) then  a[i]:=0 else a[i]:= 65+ random (25);

if a[i]>0 then write (chr(a[i]),' ');

end;

end.

в таблице ASCII символ G - 75 по номеру , а диапазон алфавита от 65 до 90