3программы на паскале: 1) ввести массив из 5 элементов. уменьшить на 3 все элементы массива с четными значениями; 2) ввести массив из 8 элементов. подсчитать сумму всех элементов массива; 3) ввести массив из 7 элементов. подсчитать произведение положительных элементов массива.

1.

const n=5;

var a: array [1..n] of integer;

i: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

if a[i] mod 2 = 0 then a[i]: =a[i]-3

end;

writeln;

write('преобразованный массив: ');

for i: =1 to n do write(a[i]: 3,' ')

end.

2.

const n=8;

var a: array [1..n] of integer;

i,s: integer;

begin

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

s: =s + a[i]

end;

writeln;

write('сумма всех элементов массива: ',s)

end.

3.

const n=7;

var a: array [1..n] of integer;

i,p: integer;

begin

p: =1;

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

if a[i] > 0 then p: =p * a[i]

end;

writeln;

write('произведение положительных элементов массива: ',p)

end.

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

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

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж