сервис вопросов и ответовВставить число, введённое с клавиатуры после первого отрицательного элемента массива. Если отрицательный элемент отсутствует, то вставить число в
5-9 класс|
|
конец массива.
Violettka133
25 февр. 2017 г., 7:26:13 (7 лет назад)
Dunaiev
25 февр. 2017 г., 9:47:11 (7 лет назад)
vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
End.
Ответить
Другие вопросы из категории
A 4 № 923. Папа Андрея смотрел оценки сына, записанные в электронном виде. Он работал с каталогом H:\Школа\Андрей. Сначала он поднялся
на один уровень вверх, затем спустился на один уровень вниз в каталог Задания, потом спустился на один уровень вниз в каталог Математика. Укажите полный путь каталога, в котором оказался пользователь.
1) H:\Школа\Задания\Математика
2) H:\Школа\Математика
3) H:\Школа\Андрей\Задания\Математика
4) H:\Задания
Вычислите значение суммы 101₂+ 11₈ + 10₁₆. Результат представьте в виде десятичного числа. Вычислите значение разности двух чисел 11₁₆ – 11₈.
Результат представьте в виде десятичного числа.
Читайте также
Язык Borland C++ никаких паскалей
Написать программу,позволяющую для заданного одномерного массива А из n вещественных или целых элементов реализовать обработку массива.Длина массива N
задается пользователем как константное выражение.Исходные данные задать вручную или с помощью генератора случайных чисел,учитывая формат элементов массива А.Тип результата определяется из контекста.
-Вычислить количество отрицательных элементов массива;
-сумму модулей элементов массива,расположенных после максимального элемента
Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b
– целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные – уменьшается.
Например, если Чертёжник находится в точке с координатами (2,3), то команда Сместиться на (-5, 2) переместит Чертёжника в точку (-3 ,5).
Запись
Повтори k раз
Команда1 Команда2 Команда3
конец
означает, что последовательность команд Команда1 Команда2 Команда3 повторится k раз.
Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 3 раз
Сместиться на (-1,-5) Сместиться на (-2, -2) Сместиться на (4, 1)
конец
Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?Ответ:
Сместиться на (–3, –6)
Сместиться на (-3, 6)
Сместиться на (-1, 2)
Сместиться на (1, -2)
1.Дан массив
1 2 3 4 5 6 7 8
7 0 -8 -4 2 16 -10 2
А
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) Значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
2.Привести пример отрицательного элемента массива с четным индексом.
3.Найти значение переменной Р.
p:=1;
For i:=3 to 5 do
p:=p*(2*i);
write(p);
4.
i:=2; s:=0;
while i<=8 do
begin
s:=s+s/2;
i:=i+2;
end;
write(s);
Заполните массив с клавиатуры целыми числами и найдите сумму элементов массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
Вы находитесь на странице вопроса "Вставить число, введённое с клавиатуры после первого отрицательного элемента массива. Если отрицательный элемент отсутствует, то вставить число в", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.