Алгоритмы поиска и присвоения значений элементам массива

Задача 1. Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.

USES Crt;

CONST N=10;

VAR

A: ARRAY[0..N] OF INTEGER;

I: BYTE;

BEGIN

ClrScr;

{ Заполнение массива }

FOR I: =1 TO N DO Begin

Write('Введите ', I, ' элемент массива '); ReadLn(A[I]);

End;

{ Обработка элементов массива }

FOR I: =1 TO N DO

IF A[I]> 0 THEN WriteLn('Положительный элемент = ', A[I], ' его индекс = ', I);

END.

Задача 2. Составить программу обработки массива K, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне от -5 до 25. Все элементы массива К, значения которых находятся в интервале от -2 до 20 возвести в квадрат. Измененный массив вывести на экран.

USES Crt;

VAR

K: ARRAY[0..20] OF INTEGER;

I: BYTE;

BEGIN

ClrScr; Randomize;

{ Заполнение массива случайными числами }

FOR I: =1 TO 20 DO Begin

K[I]: =Random(30)-5; Write(K[I]: 3);

End; WriteLn;

FOR I: =1 TO 20 DO

IF (K[I]< 20) AND (K[I]> -2) THEN K[I]: =K[I]*K[I];

WriteLn('Измененный массив');

FOR I: =1 TO 20 DO

Write(K[I]: 4);

END.

Задача 3. Составить программу вычисления и печати значений функции Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего из 6 элементов. Значения функции записать в массив Y.

USES Crt;

VAR

X, Y: ARRAY[0..6] OF REAL;

I: BYTE;

BEGIN

ClrScr;

FOR I: =1 TO 6 DO Begin

Write('Введите ', I, ' значение аргумента '); ReadLn(X[I]);

End;

FOR I: =1 TO 6 DO Begin

Y[I]: =SIN(X[I]-1)/(2*X[I]);

WriteLn(' X= ', X[I]: 4: 1, ' Y=', Y[I]: 5: 2);

End;

END.

Задача 4. Дан массив M, состоящий из 30 элементов. Элементы массива - произвольные целые числа. Выдать на экран значение каждого пятого и положительного элемента. Указанные элементы выдать в строку.

USES Crt;

VAR

M: ARRAY[0..30] OF INTEGER;

I: BYTE;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I: =1 TO 30 DO Begin

M[I]: =Random(20)-4; Write(M[I]: 3);

End; WriteLn;

I: =5;

WriteLn(' Значения каждого пятого и положительного элемента массива');

While I< =30 DO Begin

IF M[I] > 0 THEN Write(M[I]: 3);

I: =I+5;

End;

END.

Задача 5. Из элементов массива Р сформировать массив М той же размерности по правилу: если номер четный, то М[I]=I*P[I], если нечетный, то M[I]=-P[I].

USES Crt;

CONST N=15;

VAR

P, M: ARRAY[0..N] OF INTEGER;

I: BYTE;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива ');

FOR I: =1 TO N DO Begin

P[I]: =Random(70); Write(P[I]: 3);

End; WriteLn;

WriteLn(' Значения элементов сформированного массива M');

FOR I: =1 TO N DO Begin

IF I mod 2 =0 Then M[I]: =P[I]*I Else M[I]: =-P[I];

Write(M[I]: 4);

End;

END.

.....................................................................................................................................

Практические задания

.....................................................................................................................................

1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой.

2. Дан одномерный массив размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых > 10.

3. Дан одномерный массив размерностью N, заполненный случайными числами. Каждый третий элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран.

4. Составить программу вычисления и печати значений функции Y=(sinx+1)Ö cos4x. Значения аргументов задать в массиве X, состоящего из 10 элементов. Значения функции записать в массив Y.

5. Заменить первые К элементов массива на противоположные по знаку.

6. Из элементов массива А, состоящего из 25 элементов, сформировать массив D той же размерности по правилу: первые 10 элементов находятся по формуле Di=Ai+i, остальные - по формуле Di=Ai-i.