Question

Programowanie

Mam prośbę..

Musze stworzyć program w pascalu,któy wylosuje 10 małych literek z aflabetu.

Zamieni małą literke na duza i wyswietli na komputerze wylosowane znaki

prosze o pomoc z góry wielkie dzieki

Answer 1

program nazwa;
uses crt;
var
        x:integer;
        tablica:array[1..10] of string;

begin
clrscr;
        randomize;
        for x:=1 to 10 do
        begin
                tablica[x]:=(chr(random(122-97+1)+97));
                write(upcase(tablica[x]),' ');
        end;
readln;
end.