1. с клавиатуры вводится n действительных чисел. Определить сколько в данной последовательности нечетных отрицательных чисел.

2. Составить программу на языке Паскаль вычисления кубов чисел вводимых с клавиатуры.

3. Написать программу вычисления положительных чисел. Записать варианты программы с разными видов циклов.

Первая:

Uses crt;

Var arr:array[1 ... 100] of integer;

n, a, c:integer;

Begin

Write ('Сколько чисел вы хотите ввести?-') ;

Readln (n) ;

for a:=1 to n do

begin

Write ('Введите ', a,' число:') ;

Readln (arr[a]) ;

end; c:=0;

For a:=1 to n do

Begin

if (arr[a] mod 20) 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;

begin

Write ('Сколько чисел вы хотите ввести?-') ;

Readln (b) ;

For a:=1 to b do

begin

Write ('Введите ', a, ' число:') ;

Readln (arr[a]) ;

end;

For a:=1 to b do

Begin

m:=arr[a];

For c:=1 to 2 do

begin

arr[a]:=m*arr[a];

end; end;

For a:=1 to b do

begin

Writeln ('Куб ', a,' введенного вами числа равен:', arr[a]) ;

end;

end.