Удалить первый отрицательный элемент одномерного массива, если такой элемент есть.
10-11 класс
|
program enot;
VAR a: array [1..5] of integer;
i,b: integer;
begin
for i:= 1 to 5 do
a[i]:= random(51)-25;
for i:= 1 to 5 do
write(a[i],' ');
writeln();
for i:= 1 to 5 do
if a[i]<0 then
begin b:=a[i];
break
end;
for i:= 1 to 5 do
if a[i]<>b
then
write(' ', a[i]);
end.
Другие вопросы из категории
Растровый графический файл содержит черно-белое изображение ( без градации серого ) размером 400 на 250 точек . Каков информационный объем этого файла ? ( в Кб)
положительного целого числа к ( например, если к= 28796, то н= 7).
p.s язык Паскаль:)
Читайте также
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
отрицательных элементов окажется больше, чем во втором, и значение FALSE в противном случае. Использовать такую процедуру для массивов: R = (0; 0.005; -0.02; -87.5; 50) W = (45; 721.5; 8.63; -76.97; 3)
C.Р.О.Ч.Н.О.
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
1) Из элементов данного массива W[1..20] создать 2 новых массива, первый из которых содержит только положительные элементы, а второй только отрицательные.
2) Заполнить СЛУЧАЙНЫМИ числами в диапазоне от 1 до 10 два массива A[20] и B[20]. Найти и вывести на экран только те элементы этих массивов и их номера, значения которых попарно совпадают.
Например, если A[2]=B[2]=4, то на экран надо вывести: Номер-2, значение-4.
3) Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.