Составить программу по которой заполняется массив а [1..30] случайным образом символами английского алфавита (по кодовой таблице от A до Z), а на экран потом выводятся только буквы из этого массива, стоящие до буквы G.
More Questions From This User See All
Answers & Comments
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