Тапсырмалар Бірөлшемді массивтерге есептер шығару
1. Бірөлшемді, ұзындығы 10-ға тең А[10] массиві берілген. Осы
массивтегі оң элементтер санын тап.
2. Бірөлшемді массив берілген. Осы массивтегі Р санына қалдық-
сыз бөлінетін массив элементтерін экранға шығар.
3. Бірөлшемді массив берілген. Осы массивте бір ғана нөлге
тең элемент бар. Осы элементке дейінгі массив элементтерін
экранға шығар.
4. А, А,, ... А сандар тізбегі берілген. Осы тізбектегі [с; d] аралықта
орналасқан тізбек мүшелерін баспаға бер.
5. Бірөлшемді бүтін сандар массиві берілген. Осы массивтегі Х-тен
үлкен элементтерді М санымен ауыстыр.
6. Бірөлшемді массив берілген. Осы массивтегі К-дан кіші эле-
менттерді екі еселеп экранға шығар.​

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

№1

program z1;

var n: integer;

begin

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

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

(not v) and ((not n and d) or n)

если записывать логики

-v*(n+(-nd)) = -v*+n)(n+d)) = -v*(n+d)

запишем выражение

not v and (n or d)

c++

! v & & (n||d)