"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

writeln('Masiva A elementu summa ir
lielaka par masiva B elementu summu')
else
if summa (A,n) Burts then
Skaits:= Skaits + 1;
writeln('Skaits = ', Skaits);
end;
begin
ClrScr; randomize;
A:='A'; B:='z';
for j:=1 to 100 do
Burti[j]:= chr(random(35)+30);
Rekins(0);
end.
Pk5-2. Kas tiks izvadīts monitora ekrānā pēc dotās programmas izpildes
program Druka;
uses crt;
var A,B: char;
procedure Raksta(A: integer);
const B= 5;
begin writeln(A:3, B:3); end;
procedure Skaita;
var A: char;
begin A:= B; B:= '*';
writeln(A: 3, B:3); end;
50