1.с клавиатуры вводится n действительных чисел. Определить сколько в данной последовательности нечетных отрицательных чисел.
2.Составить программу на языке Паскаль вычисления кубов чисел вводимых с клавиатуры.
3.Написать программу вычисления положительных чисел.Записать варианты программы с разными видов циклов.

Первая:Uses crt;Var arr:array[1..100] of integer;n,a,c:integer;BeginWrite('Сколько чисел вы хотите ввести?-');Readln(n);for a:=1 to n dobeginWrite('Введите ',a,' число:');Readln(arr[a]);end;c:=0;For a:=1 to n doBeginif  (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;end;Writeln('В последовательности ',c,' нечетных отрицательных чисел.');end.Вторая:Uses crt;Var arr:array[1..100] of integer;a,b,c,m:integer;beginWrite('Сколько чисел вы хотите ввести?-');Readln(b);For a:=1 to b dobeginWrite('Введите ',a, ' число:');Readln(arr[a]);end;For a:=1 to b doBeginm:=arr[a];For c:=1 to 2 dobeginarr[a]:=m*arr[a];end;end;For a:=1 to b dobegin Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);end;end.