Написать программу на паскале: вычислить средний ученика по 12 предметам.оценки по каждому предмету задать самостоятельно.

type ocenka=1..5; var a: array [1..12] of ocenka; i: integer; s: real; begins: =0; for i: =1 to 12 do beginreadln(a[i]); s: =s+a[i]; end; writeln(s/12: 0: 3); end.

1.

var

    a, s : integer;

begin

    writeln('введите числа: ');

    while s < 101 do begin

        read(a);

        s += a;

    end;

    writeln('стоп! сумма чисел больше 100, s=', s);

end.

2.

var

    h : char;

    n : integer;

begin

    writeln('введите символы: ');

    while n < 5 do begin

 
      read(h);

        if h = 'f' then n += 1;

    end;

    writeln('стоп! символ f был введен 5 раз')

end.

3.

var

    a : integer;

begin

   
write('введите число от 1 до 4 : ');

    readln(a);

    if (a = 1) or (a = 2) then begin

        for var i : = 3 downto 1 do begin

            for var j : = 1 to i do write('*');

            writeln;

        end;

    end

    else if (a = 3) or (a = 4) then begin

        for var i : = 1 to 3 do begin

         
  for var j : = 1 to i do write('*');

            writeln;

        end;

    end

    else writeln('вы ввели не правильное число : (');

end.

1:

var n,k,s: integer;

begin

s: =0;

readln(n,k);

n: =abs(n);

while n> 0 do begin

if (n mod 10=k) then

s: =s+1;

n: =n div 10;

end;

writeln(s);

end.

2:

var n: integer;

s: string;

begin

readln(n);

s: =inttostr(n);

if (s[1]=s[length(s)]) then

writeln('да') else

writeln('нет');

end.

3:

var n,p,s,k: integer;

begin

readln(n);

p: =1;

s: =0;

k: =0;

while n> 0 do begin

p: =p*(n mod 10);

s: =s+(n mod 10);

k: =k+1;

n: =n div 10;

end;

writeln('количество цифр = ',k);

writeln('сумма цифр = ',s);

writeln('произведение цифр = ',p);

end.