0голос

Язык программирования: ПАСКАЛЬ.

Задачи:

№1
Правильно ли описан массив А? Если нет, то что надо изменить? Type myarray = Array [-10 .. n] of Integer;Var A : myarray;

№2
Что будет выведено на печать в результате выполнения программы? Program Variant1;Const n = 7;Type myarray = Array [ 1 .. n ] of Integer;Var C : myarray; i : Byte; p : Integer;Begin p : = 0; For i := 1 To n Do Begin C [ i ] := -50 + Random (151); If C [ i ] > 50 Then p := p + C [ i ]; End; Writeln ( p ); Readln;End.

№3
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: сумму элементов, имеющих нечетное значение; вывести индексы тех элементов, значения которых больше заданного числа А.
№4Определить, есть ли в данном массиве положительные элементы, кратные k (k вводится с клавиатуры)

№5
Замените максимальный по модулю отрицательный элемент массива нулем.

№6
Замените первые k элементов массива на противоположные по знаку.

№7
Из элементов массива С сформировать массив А той же размерности по правилу: если номер i элемента четный, то Ai = Ci2, если нечетный, то Ai = 2Ci .


№8
Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].Удалить из него все элементы, в записи которых есть цифра 5.Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры). Поменять местами первый положительный и последний отрицательный элементы.

Ваш ответ

Яндекс.Метрика
...

Вопрософ.нет Задавайте любые вопросы и получайте быстрые ответы на них. Задать вопрос и получить ответ легко! Поделись своими знаниями с другими участниками сервиса!

Задайте ваш вопрос::