1.13. ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ПО ТЕМЕ «МАССИВЫ»

Вариант 1

1.    Дан вектор из . Построить векторы , по следующему правилу: если , то , иначе положить  

Составить программу на языке Фортран, реализующую сформулированную задачу с использованием статических и динамических массивов. Замечание. Для ввода и вывода элементов массивов использовать неявные циклы в списке ввода и вывода.

2.    Дан логический массив , здесь . Если хотя бы один элемент массива равен , то все четные элементы массива, стоящие перед первым таким значением и после последнего, заменить на . Если же таких элементов нет, то напечатать строчку: 'Нет элементов, равных '.

Вариант 2

1.    Даны векторы ,  из . Построить вектор по правилу:, если  и  иначе; здесь –  скалярное произведение векторов  и , .

Составить программу на языке Фортран, реализующую сформулированную задачу с использованием статических и динамических массивов. Замечание. Для ввода и вывода элементов массивов использовать неявные циклы в списке ввода и вывода.

2.    Дан целочисленный массив, состоящий из 44 элементов. Если хотя бы один элемент массива равен заданному целому числу ω, то все элементы массива, следующие за первым таким числом, заменить на нулевые значения. Если таких элементов нет, то напечатать строчку: 'Нет элементов, равных заданному числу'.

Вариант 3

1.    Даны векторы  и  из . Построить  из и булевский вектор  по правилу:  , если и  в противном случае; , если , , если , y_i=0 во всех остальных случаях. Здесь . Составить программу на языке Фортран, реализующую сформулированную задачу с использованием статических и динамических массивов. Замечания. Для ввода и вывода элементов массивов использовать неявные циклы в списке ввода и вывода. Два вещественных числа считать равными, если они отличаются не более чем на одну десятитысячную.

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