3 lygis | 3 pamokėlė | Draugų skaičiai | Edvinas Balčiūnas

program draugu_skaiciai;
var
    s: array [1..10] of integer; //draugu skaiciai
    i, //kintamasis naudojamas masyvui nuskaityti
    k: integer; //lyginiu sk kiekis
begin
    k := 0;
    for i := 1 to 10 do
    begin
        repeat
            writeln('Iveskite ', i, ' draugo sugalvota skaiciu: ');
            readln(s[i])
        until (0 <= s[i]) and (s[i] <= 100);
        if s[i] mod 2 = 0 then
            k :=k+1;
    end;
    if k = 0 then
        writeln('Nera')
    else
        writeln('Lyginiu skaiciu kiekis: ',k);
end.