II. RF KMF DokuWiki inf-genius-2020
https://okt.kmf.uz.ua/dw/
2026-05-09T12:53:13+00:00II. RF KMF DokuWiki
https://okt.kmf.uz.ua/dw/
https://okt.kmf.uz.ua/dw/lib/tpl/dokuwiki/images/favicon.icotext/html2020-12-12T12:34:52+00:00Anonymous (anonymous@undisclosed.example.com)inf-genius-2020:inf-genius-2020
https://okt.kmf.uz.ua/dw/doku.php?id=inf-genius-2020:inf-genius-2020&rev=1607776492&do=diff
Adatforrás:
Táblázatkezelés:
Körlevél:
Genius informatika, programozás, 2020.
1. program
program hello;
begin
writeln('Hello vilag');
readln;
end.
2. program
program atlag;
const N = 5; H = 3;
var a: array[1..N] of integer;
i, osszeg, hnal_nagyobb_db: integer;
begin
osszeg := 0; hnal_nagyobb_db := 0;
writeln('Kerem a tomb elemeit:');
for i := 1 to N do
begin
write('a[',i,']:'); readln(a[i]);
osszeg := osszeg + a[i];
if a[i] > H then
hnal_nagyobb_…