II. RF KMF DokuWiki inf-prog-genius-2017
https://okt.kmf.uz.ua/dw/
2026-04-27T23:25:04+00:00II. RF KMF DokuWiki
https://okt.kmf.uz.ua/dw/
https://okt.kmf.uz.ua/dw/lib/tpl/dokuwiki/images/favicon.icotext/html2017-10-21T11:34:54+00:00Anonymous (anonymous@undisclosed.example.com)inf-prog-genius-2017:inf-prog-genius-2017
https://okt.kmf.uz.ua/dw/doku.php?id=inf-prog-genius-2017:inf-prog-genius-2017&rev=1508585694&do=diff
Genius informatika, programozás, 2017.
program elso;
var
tomb: array [1..10] of integer;
i, osszeg, szorzat, beolvasott: integer;
t: text;
begin
randomize;
writeln('Hello!');
(*assign(t, 'adat.txt');
rewrite(t);
for i:=1 to 10 do
begin
tomb[i]:=random(10); í
write(tomb[i]:3);
writeln(t, tomb[i]);
end;
close(t);*)
//az állomány elemeinek összege és szorzata
assign(t, 'adat.txt');
reset(t);
osszeg:=0;
szorzat:=1;
while not eof(t) do
begin
…