Массив F заполнен кубами первых 10 натуральных чисел. Вставить на 3 место квадрат количества элементов в массиве. В получившемся массиве удалить
10-11 класс
|
последовательно пятый и восьмой элементы. Программу требуется написать в Pascal.
var F:array[1..10] of Integer;
i:integer;
BEGIN
//заполняем массив кубами чисел
for i:=1 to 10 do
begin
F[i]:=i*i*i;
end;
F[3]:=length(F)*length(F);
Delete(5,10);
Delete(8,10);
Procedure Delete(x:Integer;n:integer);
var j : Integer;
Begin {сдвиг индекса элементов на один влево}
var a, b, c, i, n :integer;
s :array [1..10000] of longint;
begin
read (n);
for i:=1 to n do
s[i]:=i*i*i;
s[3]:=n*n;
s[5]:=0;
s[8]:=0;
for i:=6 to n do
s[i-1]:=s[i];
for i:=8 to n do
s[i-1]:=s[i];
for i:=1 to n-2 do
write (s[i], ' ');
end.
язык прогр-я?
Другие вопросы из категории
С клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел
1.Остров
2. Мореплаватель
3.Орфограмма
4.Математический закон
5.Формула
6.Поэма
Пожалуйста, срочно надоо.!))
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.