17 / 17 / 0
Регистрация: 02.02.2010
Сообщений: 92
1

Поменять местами последний ноль в линейной последовательности с первым элементом

09.02.2010, 09:20. Показов 1199. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу, которая меняет местами последний ноль в линейной последовательности с первым элементом этой последовательности.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.02.2010, 09:20
Ответы с готовыми решениями:

Поменять местами последний элемент массива с первым элементом, равным x
Заданный массив с n чисел. Поменять местами последний элемент с первым элементом, равным x. Учесть...

В одномерном целочисленном массиве поменять местами последний элемент с первым нулевым элементом
Ввести в память машины одномерный целочисленный массив, размерностью не более 50 элементов....

Поменять местами последний элемент массива с первым минимальным элементом, а затем поделить на заданное
Поменять местами последний элемент массива с первым минимальным элементом, а затем поделить на...

Последний отрицательный элемент массива умножить на заданное число и поменять местами с первым элементом
Найти последний отрицательный элемент массива,умножить его на заданное число и поменять местами с...

1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.02.2010, 10:13 2
Лучший ответ Сообщение было отмечено лёлька как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:integer;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
i:=n;
j:=0;
while (a[i]<>0)and(i>0) do{ищем первый 0 с конца}
i:=i-1;
j:=i;
if j=0 then write('В последовательности нет нолей!')
else if j=1 then write('В последовательности 1 ноль и он первый!')
else
 begin
  x:=a[1];
  a[1]:=a[j];{меняем местами}
  a[j]:=x;
  writeln('Обмен последнего нулевого и первого:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.
0
09.02.2010, 10:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2010, 10:13
Помогаю со студенческими работами здесь

Дан целочисленный вектор А(n). Поменять местами последний положительный элемент вектора с первым ненулевым элементом
Дан целочисленный вектор А(п). Поменять местами последний положительный элемент вектора с первым...

Поменять последний элемент массива, кратный своему порядковому номеру с первым элементом
Всем добрый вечер! Столкнулся с проблемой, нужно поменять последний элемент, кратный своему...

Шаблон функции меняющей местами последний элемент с первым элементом равным заданному числу
Заданный массив с n чисел. Поменять местами последний элемент с первым элементом, равным x. Учесть...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru