Ввести два числа.если их сумма больше100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

программа для паскаля

uses crt;

var a,b,s: real;

begin

clrscr;

write ('a='); read (a);

write ('b='); read (b);

s: =a+b;

if s> 100 then writeln (s/2)

else writeln (2*s);

end.

program pr1; uses crt; var fl1,fl2: text; i,n,v,a,b: integer; beginclrscr; assign(fl1,'input.txt'); assign(fl2,'output.txt'); reset(fl1); readln(fl1,n); v: =0; for i: =1 to 1000000 do beginif i> =10 then begina: =i div 10; b: =i mod 10; if (a mod 2< > 0) and (b mod 2< > 0) then v: =v{? } 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}endelse if i mod 2< > 0 then v: =v 1; {здесь тоже самое}if v=n then break; end; rewrite(fl2); writeln(fl2,v); close(fl1); close(fl2); end.

если нужны объяснения то пиши в личку)

program zada4a; vari,x,n: integer; a: array [1..100] of integer; beginn: =0;

write('введите x - '); readln(x); for i: =1 to 5 do   - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную. begin  a[i]: =random(21);   -это строчка озночает, что числа интервалом от 0 до 20. write(a[i]: 5); end; writeln; for i: =1 to 5 do begin if x=a[i] then begin writeln('элемент в массиве равный ',x,' находится под номером - ',i); n: =n+1; end; end; if n=0 then write('элемент c таким значением отсутствоет'); end.