Тема: pascal.циклы 1)составить алгоритм решения : сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову-5 руб., а за теленка-0, 5 руб., если на 100 руб. надо купить 100 голов скота? 2)даны 2 целых числа а и в(a0найти сумму 1+1/2+1/3++1/n(вещественное число).

var

  mas: array[0..19]of integer;

  a, b, c, e: integer;

begin

  for a : = 0 to 19 do mas[a] : = random(100) - 50;

//заполняем массив  

  for a : = 0 to 19 do if mas[a] < 0 then b : = b + 1;

//количество отрицательных элементов

  for a : = 0 to 19 do if mas[a] mod 2 = 0 then c : = c + mas[a];

//сумму четных элементов

  for a : = 0 to 19 do  

    case mas[a] of

      1..20: e : = e + mas[a];

    end;

//произведение элементов из интервала 1; 20    

  write(b, ' ', c, ' ', e);

end.

пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов

var k, i, n: integer ;

a: array [1..100]of integer ;

begin

write('введите кол-во элементов в массиве ') ;

read(n) ;

for i: =1 to n do begin

a[i]: =random(100)-50;

write(' ', a[i]) ;

end;

k: =0; writeln;

write ('кол-во отрицательных элементов ') ;

for i: =1 to n do begin

if a[i]< 0 then k: =k+1;

end;

write(k); k: =0;

writeln;

write ('сумма четных элементов ') ;

for i: =1 to n do begin

if a[i] mod 2=0 then k: =k+a[i];

end;

write(k) ; k: =1;

writeln ;

write('произведение элементов в интервале [1; 20] ');

for i: =1 to n do begin

if (a[i]> 0)and(a[i]< 21) then k: =k*a[i];

end;

write(k) ;

end.