На массив выведите на экран значения положительных элементов, меньших 100

var

i: integer;

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

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

1) присвоения : =2)343,5  3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin      read(a);       writeln('4. s=',4*a);             read(x);       x3: =x mod 10;       x1: =x div 10;       writeln('5. x=',x3*100+x1); end.

16*2*60/8 мего байт