Решить не могу по информатике: 1. составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями. 2.составьте программу, которая заполняет массив h [1..10] случайными целыми числами в диапазоне от -10 до 10 и находит количество элементов с отрицательными значениями. 3. составьте программу, которая заполняет массив h [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечётными значениями и количество элементов с нечётными значениями. 5. составьте программу, которая заполняет массив h [1..20] случайными целыми числами в диапазоне от 1 до 20 и находит среднее арифметическое элементов кратных трём и чётными индексами.

1)var h: array[1..8]of integer;             i: integer; begin   write('massiv');   for i: =1 to 8 do   read(h[i]);   writeln;   write('elementi s otric znach');   for i: =1 to 8 do   if h[i]< 0 then write(h[i],' '); end.2)var h: array[1..10]of integer;           i,k: integer; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(21)-10;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if h[i]< 0 then k: =k+1;   write('kol-vo elem s otric znach: ',k); end.3)var h: array[1..10]of integer;               i,k,p: integer; begin  write('massiv: ');   for i: =1 to 10 do  begin    h[i]: =random(10)+1;     write(h[i],' ');   end;   writeln;   p: =1;   for i: =1 to 10 do  if h[i] mod 2=1 then    begin    k: =k+1;     p: =p*h[i];     end;   write('kol-vo elem s nechet znach: ',k,' proizvedenie: ',p); end.5)var h: array[1..20]of integer;           i,k,s: integer;           a: real; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(20)+1;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if (h[i] mod 3=0)and(i mod 2=0) then     begin     k: =k+1;     s: =s+h[i];     end;   a: =s/k;   write('srednee arifmet: ',a); end.

Var     x, x1, y, y1, d  : integer; begin     writeln('введите координаты первой точки: ');     write('x: ');     readln(x);     write('y:   ');     readln(y);     writeln('введите координаты второй точки: ');     write('x:   ');     readln(x1);     write('y:   ');     readln(y1);     d : = sqrt( sqr(x1-x) + sqr(y1-y)  );     write('расстояние между двумя точками:   ', d);     readln; end.

В)  действие объекта - это, что может делать сам объект или что могут делать с данным объектом. для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом. г)поведение — это то, как объект взаимодействует с окружением (другими объектами) состояние - состояние объекта, при котором его дальнейшая эксплуатация недопустима или нецелесообразна либо восстановление его работоспособного состояния невозможно или "