| Чередующийся массив <- Массивы <- Turbo pascal | 2010-05-26 | | Объединить два случайных массива в третий так, чтобы элементы нового чередовались по 5 подряд из старого. | 
4.79 КБ
Cкачать (455)
|
|
| Сумма между крайними положительными <- Массивы <- Turbo pascal | 2010-03-31 | | Вычислить сумму чисел, расположенных между первым и последним элеметами массива (крайние положительные). |
4.47 КБ
Cкачать (454)
|
|
| Усредненный массив <- Массивы <- Turbo pascal | 2010-01-26 | | Генерируются случайным образом 2 массива. Составляется третий массив, который является серединным, т.е расчитывается по формуле:c[i]=(a[i]+b[i])/2. |
5.47 КБ
Cкачать (453)
|
|
| Матрица сдвига <- Массивы <- Turbo pascal | 2010-01-31 | Сформировать сдвиговую матрицу вида:
1 2 3 4 ...
2 1 2 3 ...
3 2 1 2 ...
4 3 2 1 ...
...
|
2.85 КБ
Cкачать (453)
|
|
| Сумма элементов больше 3 <- Массивы <- Turbo pascal | 2010-01-20 | | Вывести количество элементов квадратной матрицы, которые больше трех и вычислить их сумму. |
3.01 КБ
Cкачать (452)
|
|
| Универсальный массив и выборка <- Массивы <- Turbo pascal | 2010-01-14 | | Программа работающиая с любым подупстимым набором исходных данных массива. Дана непустая последовательность символов, построить и напечатать множество, элементы которого от 1 до 9 цифры и буквы от н до ш. |
7.73 КБ
Cкачать (451)
|
|
| Побочная диагональ с отрицательным числом <- Массивы <- Turbo pascal | 2010-02-06 | | При наличии отрацательного значения в побочной диагонали матрицы обнулить диагональ. |
4.36 КБ
Cкачать (451)
|
|
| Массив из диагоналей матрицы <- Массивы <- Turbo pascal | 2010-01-25 | | Сгенерировать матрицу по закону: A(ij)=Xk; Xk=f(X(k-1)); X0=0.03 f(x)=SIN(X^3+5). Сформировать одномерный массив, четными элементами которого будут значения главной диагонали матрицы, а нечетными - побочной диагонали. |
6.77 КБ
Cкачать (450)
|
|
| Отрицательные числа под диагональю <- Массивы <- Turbo pascal | 2010-02-17 | | Определить есть ли отрицательные числа под главной диагональю матрицы. |
4.55 КБ
Cкачать (450)
|
|
| Пары с условием А[i,j]=-А[j,i] <- Массивы <- Turbo pascal | 2010-02-23 | | Найти все пары удовлетворяющие условию А[i,j]=-А[j,i]. Вывести значения пар и их индексы. |
5.08 КБ
Cкачать (450)
|
|