Практическая работа по теме "Массивы" (11 класс)

Вариант 1

1. Задана массив В(7). Отрицательные элементы заменить на 0. Измененный массив вывести на экран.

2. Дан массив из 10 элементов. Найти сумму элементов массива.

3. Удвоить каждый элемент массива Х(m) и напечатать измененный массив.

4. Заполнить массив Х(7) с помощью генератора случайных чисел.
5. В массиве В(9), подсчитать количество элементов меньше числа 10.

1. Дан массив А(7). Ввод элементов массива осуществить с клавиатуры. Вывести массив на экран.

2. Найти сумму положительных элементов массива C(5).

3. Заполнить одномерный массив квадратами его индексов.

4. В массиве М(15), подсчитать количество отрицательных элементов.

5. В массиве Т(m) заменить нулевые элементы, на число 1 и напечатать измененный массив.

1. Заполнить одномерный массив В(100) с помощью датчика случайных чисел.

2. В массиве Т(10), подсчитать количество положительных элементов.

3. Заполнить массив А(N), присвоив каждому элементу его индекс. Вывести на экран.

4. Дан массив из 10 элементов. Найти произведение элементов массива.

5. В массиве F(15) вывести на экран индексы положительных элементов.

1. Заполнить массив А(8) с помощью генератора случайных чисел. Вывести на экран.

2. В массиве B(N), подсчитать количество нечетных элементов.

3. Заполнить массив А(20), присвоив каждому элементу число 7. Вывести на экран.

4. Найти сумму отрицательных элементов массива B(10).

5. В массиве М(12) вывести на экран все положительные элементы.

1. Заполнить массив А(N), присвоив каждому элементу его индекс. Вывести на экран.

2. В массиве C(10), подсчитать количество нулевых элементов.

3. Заполнить одномерный массив С(50) с помощью датчика случайных чисел.

4. Дан массив из 7 элементов. Найти произведение элементов массива.

5. Вывести на экран положительные элементы массива Х(k).

Вариант 6

1. Заполнить одномерный массив R(30) с помощью датчика случайных чисел.

2. Заполнить массив А(N), присвоив каждому элементу его удвоенный индекс. Вывести на экран.

3. Дан массив из 10 элементов. Найти сумму элементов массива.

4. В массиве K(N), подсчитать количество четных элементов.

5. В массиве А(12) вывести на экран все отрицательные элементы.

Вариант 7

1. Задана массив D(8). Нулевые элементы матрицы заменить на -1. Измененный массив вывести на экран.

2. Дан массив из 10 элементов. Найти произведение элементов массива

3. Утроить каждый элемент массива Х(m) и напечатать измененный массив.

4. Заполнить массив А(8) с помощью генератора случайных чисел.
5. В массиве В(9), подсчитать количество элементов больше числа 10.

1. Дан массив Т(9). Ввод элементов массива осуществить с клавиатуры. Вывести массив на экран.

2. Найти сумму элементов массива C(5).

3. Заполнить одномерный массив квадратами его индексов.

4. В массиве М(15), подсчитать количество отрицательных элементов.

5. В массиве Т(m) заменить нулевые элементы, на число 10 и напечатать измененный массив.

1. Заполнить одномерный массив С(50) с помощью датчика случайных чисел.

2. В массиве Т(10), подсчитать количество положительных элементов.

3. Заполнить массив А(N), присвоив каждому элементу его индекс. Вывести на экран.

4. Дан массив из 10 элементов. Найти произведение элементов массива.

5. В массиве F(15) вывести на экран индексы четных элементов.

1. Заполнить массив N(7) с помощью генератора случайных чисел. Вывести на экран.

2. В массиве B(N), подсчитать количество нечетных элементов.

3. Заполнить массив А(20), присвоив каждому элементу число 1. Вывести на экран.

4. Найти сумму отрицательных элементов массива B(10).

5. В массиве К(10) вывести на экран все отрицательные элементы.

1. Заполнить массив С(N), присвоив каждому элементу его индекс, возведенный в куб. Вывести на экран.

2. В массиве C(10), подсчитать количество нулевых элементов.

3. Заполнить одномерный массив К(6) с помощью генератора случайных чисел.

4. Дан массив из 7 элементов. Найти произведение элементов массива.

5. Вывести на экран отрицательные элементы массива Х(k).

Вариант 12

1. Заполнить одномерный массив К(20) с помощью датчика случайных чисел.

2. Заполнить массив А(N), присвоив каждому элементу его удвоенный индекс. Вывести на экран.

3. Дан массив из 9 элементов. Найти сумму элементов массива.

4. В массиве K(N), подсчитать количество нечетных элементов.

5. В массиве D(12) вывести на экран все элементы, больше 8.

1. Для заданного одномерного массива, содержащего 10 чисел подсчитать и вывести на экран количество нулевых элементов.

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

3. Для произвольного одномерного массива целых чисел вывести на экран значения элементов, стоящих на нечетных местах.

Описание массива:

Var

Zero: array[1..10] of integer;

Var

Zero: array[1..10] of real;

Задание массива

а) с клавиатуры:

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do readln(zero[i]);

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do begin

write(‘zero (’,i,’)=’);

readln(zero[i]);

end;

б) выражением:

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do

zero[i]:=i*i;

write(zero[i]);

в) генератором (датчиком) случайных чисел:

randomize;

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do

zero[i]:=random;

write(zero[i]);

randomize;

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do

zero[i]:=random(15);

write(zero[i]);

randomize;

writeln(‘Задайте 10 элементов массива’)

for i:=1 to 10 do

zero[i]:=random(15)-5;

write(zero[i]);

Обработка массива

s:=0;

for i:=1 to 10 do

if zero[i]=0 then s:=s+1;

write(s);

s:=0;

for i:=1 to 10 do

if zero[i]=0 then s:=s+zero[i];

write(s);

s:=0;k:=0;

for i:=1 to 10 do

if zero[i] mod 2=1 then begin s:=s+zero[i]; k:=_________ end;

write(s,k);

s:=0;

for i:=1 to 10 do

if i mod 2=1 then s:=s+zero[i];

write(s);