Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Массив F заполнен кубами первых 10 натуральных чисел. Вставить на 3 место квадрат количества элементов в массиве. В получившемся массиве удалить

10-11 класс

последовательно пятый и восьмой элементы. Программу требуется написать в Pascal.

Derlugovp 01 марта 2015 г., 14:57:31 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Smat
01 марта 2015 г., 17:06:32 (9 лет назад)

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 {сдвиг индекса элементов на один влево}

+ 0 -
NiKaOOOO
01 марта 2015 г., 19:23:08 (9 лет назад)

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.

+ 0 -
Valeriyakazanova
01 марта 2015 г., 20:50:00 (9 лет назад)

язык прогр-я?

+ 0 -
Wwwsoffiyka
01 марта 2015 г., 23:15:38 (9 лет назад)

Pascal.

Ответить

Другие вопросы из категории

PASCAL

С клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел

Вспомните по одному объекту каждого из приведенных множеств и запишите их единичные имена.

1.Остров
2. Мореплаватель
3.Орфограмма
4.Математический закон
5.Формула
6.Поэма
Пожалуйста, срочно надоо.!))

Читайте также

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел

среди 10 элементов вещественного массива

3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.

4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов

Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа

получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.

1.Напишите программу, которая в последовательности натуральных чисел

определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.

2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.



Вы находитесь на странице вопроса "Массив F заполнен кубами первых 10 натуральных чисел. Вставить на 3 место квадрат количества элементов в массиве. В получившемся массиве удалить", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.