Удалить из массива элемент в диапазоне [-50;50] равный заданному(вводится с клавиатуры)
5-9 класс
|
var a:array [1..100] of integer;
n:integer;
Found:boolean;
BEGIN
read(n);
for i := 1 to 100 do
begin
a[i]:= random(-50,50);
if a[i] = n then Found := true;
if Found then a[i]:=a[i+1];
end;
END.
Другие вопросы из категории
Написать 6 задач программы(линейная, циклическая и разветвляющаяся)
полностью разбрать и еще + блок схемы
двоих детей. Как организовать переправу, если и взрослые, и дети умеют грести?
закодировать последовательность символов ГАВБ и записать результат в шестнадцатеричной системе счисления,то что получится?
Цепочка из трех бусин,помеченных латинскими буквами,формируется по следующему правилу.В конце цепочки стоит одна из бусин A,B,C,D,E.В середине-одна из бусинB,C,E,которой нет на последнем месте.На первом месте-одна из бусин A,B,D,не стоящая на втором месте,какая из перечисленных цепочек создана по этому правилу?(ABB.,DED.,BAD.,DEC)
а+в/a^2-b(под корнем);
|a|-a+b/a-b
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
равен 500; второй равен целой части квадратного корня из предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)