II. RF KMF DokuWiki inf-genius-2019
https://okt.kmf.uz.ua/dw/
2026-05-16T18:42:47+00:00II. RF KMF DokuWiki
https://okt.kmf.uz.ua/dw/
https://okt.kmf.uz.ua/dw/lib/tpl/dokuwiki/images/favicon.icotext/html2019-11-09T11:47:05+00:00Anonymous (anonymous@undisclosed.example.com)inf-genius-2019:inf-genius-2019
https://okt.kmf.uz.ua/dw/doku.php?id=inf-genius-2019:inf-genius-2019&rev=1573300025&do=diff
Excel, 2. foglalkozás.
Genius informatika, programozás, 2019.
1. program
program fuggvenyek;
const n=5;
type tomb=array[1..n]of integer;
function osszead2(a,b:integer):integer;
begin
osszead2:=a+b;
end;
procedure kiirTomb(a:tomb);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
end;
procedure tombFeltolt(var a:tomb);
var i:integer;
begin
for i:=1 to n do
a[i]:=10+random(90);
end;
var a,b,c:integer; t:tomb;
begin
writeln('Fuggvenyek es eljarasok.');
…