7 užduotis: program uzduotis7;
var i, temp, dienos : integer;
begin
dienos := 0;
for i := 1 to 7 do
begin
Write('Įveskite dienos temperatūrą: ');
Readln(temp);
if temp > 10
then dienos := dienos + 1;
end;
Writeln('Šiltų dienų skaičius: ', dienos);
Readln;
end. 8 užduotis: program uzduotis8;
var skaicius, sum1, sum2 : integer;
begin
Write('Įveskite skaičių: ');
Readln(skaicius);
sum1 := 0;
sum2 := 0;
while skaicius <> 0 do
begin
if skaicius > 0
then sum1 := sum1 + skaicius
else sum2 := sum2 + skaici