Задания для самостоятельной работы. Type Posled=Array[1..nmax] of Integer;

Листинг программы

Program M;

Const nmax=100;

Type Posled=Array[1..nmax] of Integer;

Var A: Posled;

S, I,N: Integer;

Begin

Writeln('Введите количество элементов');

Readln(N);

Writeln('Введите элементы последовательности');

For I:= 1 to N do

Read(A[ I ]);

S:=0;

For I:= 1 to N do

If A[ I ]>0 Then S:=S+A[ I ];

Writeln(S);

End.

Блок - схема алгоритма:.

Пример 2: Дан массив целых чисел. Найдите количество четных элементов массива.

Листинг программы

Program MM;

Const nmax=100;

Type Mas=Array[1..nmax] of Integer;

Var A: Posled;

Kol, I, N: Integer;

Begin

Writeln('Введите количество элементов массива');

Readln(N);

Writeln('Введите элементы массива');

For I:= 1 to N do

Read(A[ I ]);

Kol:=0;

For I:= 1 to N do

If A[ I ] mod 2 = 0 Then Kol:=Kol+1;

Writeln(Kol);

End.

Пример 3: Дан массив целых чисел. Найдите максимальный элемент массива и его номер.

Листинг программы

Program MMM;

Const nmax=100;

Type Mas=Array[1..nmax] of Integer;

Var A: Posled;

Max, Nom, Kol, I, N,: Integer;

Begin

Writeln('Введите количество элементов массива');

Readln(N);

Writeln('Введите элементы массива');

For I:= 1 to N do

Read(A[ I ]);

Max:=A[1]; {полагаем, что первый элемент и есть максимальный}

Nom:=1;

For I:= 2 to N do

If A[ I ] > Max Then

Begin

Max:=A[ I ];

Nom:=I;

End;

Writeln(Max,' ',Nom);

End.

Задания для самостоятельной работы.

1. Дан массив целых чисел. Найдите сумму элементов массива, больших данного числа А (А вводим с клавиатуры).

2. Дан массив целых чисел. Найдите сумму элементов массива, принадлежащих промежутку от А до В (А и В вводим с клавиатуры).

3. Дан массив целых чисел. Найдите номера всех элементов массива с максимальным значением.

4. Дан массив целых чисел. Найдите количество нечетных элементов массива.

5. Дан массив целых чисел. Найдите количество отрицательных элементов.

6. Дан массив целых чисел. Найдите количество элементов кратных 3 или 5.

7. Дан массив целых чисел. Найдите сумму положительных элементов массива.

8. Дан массив целых чисел. Найдите произведение нечетных элементов.

9. Дан массив целых чисел. Найдите максимальный элемент массива и его номер.

Не нашли, что искали? Воспользуйтесь поиском: