hlmod.hu

program virtualnak;
var a:array of integer;
    i,sum,min,max,n:integer;
    avr:real;
 
begin
    WriteLn("Helloka");
    WriteLn("Mennyi nap?");
    ReadLn(n);
    setlength(a, n);
    sum:=0;
    for i:=1 to n do
    begin
     writeln(i, ". nap?");
     ReadLn(a[i]);
     sum:= sum+a[i];
    end;
    WriteLn("Tenkju");
    min = a[1];
    max = a[1];
    for i:=2 to n do
    begin
     if a[i]<min then min:=a[i];
     if a[i]>max then max:=a[i];
    end;
    WriteLn("Legkisebb: ", min);
    WriteLn("Legnagyobb: ", max);
    avr:=sum/n;
    WriteLn("Atlaghom.: ",avr:0:2);
    for i:=1 to n do
    begin
    if a[i] >= avr then WriteLn("Az", i, ". nap elerte az atlagot.");
    end;
end;
 

 
2. Feladat:
Egy teherszállító vonatnak legtöbb 20 kocsija lehet.
Minden kocsi legtöbb 5000 kg terhet szállíthat.
Írjatok programot az alábbi feladatok megoldására:
a)a kocsik terhelésének beolvasására és kiíratására
b)a teljesen megtöltött kocsik kiíratására
c)a legkisebb terheléssel rendelkező kocsik kiíratására
Szerkesszetek tesztadatokat minden program helyességének ellenőrzésére!
 
program TeherSzallito;
const
	N: integer := 20;
	MAXSULY: integer := 5000;
var 
	vagon:array[1..N] of integer;
	vagonszam: integer;
	i: integer;
	input: integer;
	l: boolean;
	mini : integer;
begin
	for i:=1 to N do
	begin
		vagon[i] := -1;
	end;
 
	WriteLn("Mennyi kocsi van?");
	ReadLn(vagonszam);
	while (vagonszam<1 or vagonszam>N) do
	begin
		WriteLn('1-tol ', N, '-ig adj meg erteket');
		ReadLn(vagonszam);
	end;
 
	i:=1;
	while (i<=vagonokszama) do
	begin
		WriteLn('1-tol ', N, '-ig adj meg erteket');
		ReadLn(input);
		if (input>MAXSULY or input<0) then
			WriteLn('0-tol ', MAXSULY, '-ig add meg az aktuális terhelés mennyiségét');
		else
		begin
			vagon[i] := input;
			i:=i+1;
		end;
	end;
 
	WriteLn('Kocsik szama: ', N);
	WriteLn('Kocsik terhelése');
	i:=1;
	mini := 1
	while (i <= N or vagon[i] = -1) do
	begin
		WriteLn(i, '. kocsi  terhelese: ', vagon[i], ' kg');
		if (vagon[mini] < vagon[i]) then
			mini := i;
		i:=i+1;
	end;
	WriteLn('A teljesen megtöltött kocsik:');
	l:=false;
	i:=1;
	while (i <= N or vagon[i] = -1) do
	begin
		if (vagon[i] = MAXSULY) then
		begin
			WriteLn(i);
			l:=true;
		end
		i:=i+1;
	end;
 
	if (l=false) then
		WriteLn("Nincs teli kocsi");
 
	WriteLn('A legkisebb terheléssel rendelkező kocsik:');
	i:=1;
	while (i <= N or vagon[i] = -1) do
	begin
		if (vagon[i] = vagon[mini]) then
			WriteLn(i);
		i:=i+1;
	end;
end;