Вариант № 1

1. Найти наименьшее из трех введенных с клавиатуры чисел (условный оператор).

2. Вычислить значение функции у=2cosx на интервале от -3 π до 3 π (цикл с предусловием).

3. Найти все элементы массива вещественных чисел c(n), большие заданного числа к.

4. Найти сумму всех элементов массива целых чисел b(n), удовлетворяющих условию: остаток от деления на 2 равен 3.

5. В линейном массиве целых чисел а(12) заменить все элементы, кратные введенному числу d на их квадраты.

6. Дан линейный массив, содержащий положительные и отрицательные целые числа. Создать два новых массива, в одном из которых содержатся только положительные, а в другом только отрицательные числа.

7. В двумерном массиве вещественных чисел заменить все элементы, меньшие суммы элементов первой строки на эту сумму.

Вариант № 2

1. Найти все числа, кратные 7 на интервале от 1 до 100 (цикл с предусловием).

2. Найти все элементы одномерного массива целых чисел b(n), удовлетворяющие условию: остаток от деления на 5 равен 3.

3. Найти сумму всех элементов массива вещественных чисел b(n), больших заданного числа.

4. В линейном массиве вещественных чисел а(n) заменить все элементы, большие 10 на число k.

5. Задан линейный массив. Создать два массива, в одном из которых находятся все четные по номеру элементы массива, в другом - нечетные.

6. Имеется двумерный массив целых чисел. Найти номер строки, для которой среднеарифметическое значение её элементов максимально.

Вариант № 3

1. Напишите фрагмент программы в виде условного оператора, в котором значение переменной z вычисляется по формуле z=ln(x), если x>0 и по формуле z=х², если х<0.

2. Найти сумму всех чисел х, удовлетворяющих условию 2,4<х<19,6 на интервале от 2,5 до 20 (цикл с постусловием).

3. Найти все элементы одномерного массива целых чисел А(20), меньшие 0.

4. Найти произведение элементов массива a(n), кратных 3 и 9.

5. В линейном массиве целых чисел b(n) заменить все элементы, кратные 5 на их удвоенное значение.

6. Задан линейный массив. Создать два массива, в одном из которых находятся все элементы массива, кратные 2, а в другом - кратные 5.

7. Найти номер столбца двумерного массива целых чисел, для которого среднеарифметическое значение его элементов максимально.

Вариант № 4

1. Вводятся три неравных числа. Найти среди них такое, которое меньше наибольшего из них, но больше наименьшего (условный оператор).

2. Найти произведение всех чисел, меньших заданного числа х на интервале от-3 до 27 (цикл с постусловием).

3. Найти все элементы массива вещественных чисел а(30), меньшие -1,2.

4. Найти произведение всех элементов массива вещественных чисел b(n), меньших заданного числа.

5. В линейном массиве целых чисел d(25) заменить все элементы, меньшие 0 на квадрат этих элементов.

6. Задан линейный массив А(16). Создать два массива, в одном из которых находятся все элементы массива, кратные 5, а в другом - кратные 3.

7. Найти номер столбца двумерного массива вещественных чисел, для которого среднеарифметическое значение его элементов минимально.

Вариант № 5

1. Напишите программу, которая определяет, прямоугольный треугольник или нет по введенным значениям длин сторон.

2. Найти все числа, которые делятся без остатка на число р на интервале от -5 до 35.*Число р вводится с клавиатуры (цикл с предусловием).

3. Найти номера элементов массива вещественных чисел b(n), меньших заданного числа k.

4. Найти сумму элементов массива, больших квадрата первого элемента этого массива. Если таких нет, тo выдать сообщение об этом.

4. Переписать линейный массив вещественных чисел b(30) в обратном порядке.

4. Найти сумму положительных элементов первого столбца двумерного массива целых чисел.

4. Найти номер строки и столбца двумерного массива для максимального элемента этого массива.

Вариант № 6

1. Найти значение переменной х после выполнения следующего фрагмента программы:

х:=9;

if х>6 then dec(х,4) else inc(х,2);

Ответ: х=5.

2. Найти все целые числа, которые делятся на 11 и 3 без остатка на интервале от-12 до 100 (цикл с предусловием).

2. Найти количество элементов массива чисел с(n), меньших заданного числа.

2. Найти произведение элементов массива вещественных чисел, которые больше первого, но меньше 4-гo элементов этого массива. Если таких нет, то выдать сообщение об этом.

2. В линейном массиве целых чисел а(n) заменить все элементы, большие второго и меньшие пятого, на сумму второго и пятого.

2. Найти минимальный элемент двумерного массива и его местоположение.

2. Найти максимальный элемент среди максимальных элементов строк двумерного массива целых чисел. Определить номер строки и столбца для такого элемента.

Вариант № 7

1. Напишите программу, в которой все положительные вводимые с клавиатуры числа уменьшаются вдвое, отрицательные возводятся в квадрат, а нули заменяются на 1.

2. Написать программу, которая вычисляет следующее выражение: 1^х+2^х+...+20^х. Число х задается с клавиатуры (цикл с постусловием).

3. В линейном массиве b(15) заменить первые 5 элементов по формуле b_i=b_i*3.

4. Найти и выдать на печать номера элементов массива вещественных чисел b(n), которые больше первого, но меньше 4-го элементов массива. Если таких элементов нет, выдать сообщение об этом.

5. Найти сумму всех элементов линейного массива целых чисел, которые меньше среднего арифметического элементов массива.

6. Заменить все элементы двумерного массива меньше среднего арифметического этого массива на квадраты этих элементов.

7. Найти минимальный элемент среди максимальных элементов строк двумерного массива вещественных чисел. Определить номер строки и столбца для такого элемента.

Вариант № 8

1. Вычислить значение функции

2. Найти все числа, которые делятся без остатка на 5 и их сумму на интервале от -25 до 35 (цикл с предусловием).

x:=x+1

3. Найти количество элементов массива целых чисел а(12), больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение об этом.

4. Найти произведение элементов линейного массива целых чисел, которые делятся на заданное число k.

5. В линейном массиве поменять местами первый и последний элементы массива.

6. Найти сумму всех четных элементов массива целых чисел а(4,7).

7. Найти минимальный элемент среди минимальных элементов столбцов двумерного массива целых чисел. Определить номер строки и столбца для такого элемента.

Вариант № 9

1. Вычислить значение функции:

2. Написать программу вычисления суммы квадратов целых чисел от 10 до 80 (цикл с параметром).

2. Найти и выдать на печать все элементы одномерного массива целых чисел а (10), которые больше среднего арифметического элементов массива и их номера.

2. Найти сумму элементов массива целых чисел, кратных 5 и 8 одновременно.

2. Удалить первый элемент массива b(n).

2. Найти разность наибольшего и наименьшего элементов двумерного массива b(n,m). Вывести на печать индексы наибольшего и наименьшего элементов.

2. В двумерном массиве k(3,9) подсчитать сумму элементов пятого и восьмого столбца.

Вариант № 10

1. Вычислить значение функции:

Значение х вводится с клавиатуры.

2. Найти произведение всех отрицательных, целых чисел меньших заданного числа k на интервале от -14 до 12 (цикл с предусловием).

2. Найти все элементы одномерного массива вещественных чисел, которые кратны 5 (делятся на 5).

2. Найти произведение элементов линейного массива целых чисел а(10), удовлетворяющих условию 3<а_i<15.

2. Удалить последний элемент массива b(n).

2. Найти произведение элементов первой строки массива р(4,8).

2. Вставить на k-е место массива вещественных чисел элемент, равный наименьшему элементу массива.

Вариант № 11

1. Найти сумму вводимых с клавиатуры положительных чисел (цикл с предусловием).

2. Найти сумму всех положительных чисел, не превосходящих заданное число N (цикл с постусловием).

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

4. Дан массив а(n). Вывести на печать новый массив b(n), каждый элемент которого вычисляется по фор­муле : b_i=а_i*2*i.

5. Удалить второй элемент массива b(n).

6. Найти сумму элементов двумерного массива вещественных чисел р(15,15), расположенных на главной диагонали.

7. Найти минимальный элемент среди максимальных элементов строк двумерного массива вещественных чисел. Определить номер строки и столбца для такого элемента.

Вариант № 12

1. Найти сумму всех целых чисел больших-50, меньших 200, которые кратны 5 и 8 (цикл с параметром).

2. Найти произведение всех отрицательных целых чисел, больших-10 (цикл с предусловием).

3. Найти элементы массива целых чисел с(n), которые делятся на 5 и на 8 одновременно.

4. Дан массив а(n). Вывести на печать новый массив b(n), каждый элемент которого вычисляется по формуле:

5. Удалить третий элемент массива b(n).

5. В двумерном массиве b(10,12) заменить все положительные элементы 9-той строки на число к.

5. Найти все неповторяющиеся элементы двумерного массива целых чисел.

program t111;

var a:array[1..10,1..10]of integer;

b:array[1..100]of integer;

n,i,j,k,x:integer;

begin

randomize;

write('n=');readln(n);

writeln('Ishodnaia matrica:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(30);

write(a[i,j]:4);

end;

writeln;

end;

k:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

k:=k+1;

b[k]:=a[i,j];

end;

end;

writeln('Rjad elementov:');

for i:=1 to k do

write(b[i],' ');

for i:=1 to k-1 do

for j:=1 to k-1 do

if b[j]>b[j+1] then

begin

x:=b[j];b[j]:=b[j+1];b[j+1]:=x;//сортируем массив

end;

writeln;

writeln('Otsortirovanny rjad:');

for i:=1 to k do

write(b[i],' ');

writeln;

writeln('Nepovtor elem:');

for i:=2 to k-1 do

if (b[i]<>b[i-1])and(b[i]<>b[i+1]) then //ищем неповторяющиеся элементы

begin

write(b[i],' ');

end;

readln;

end.

Вариант №13