Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Калерчик
1 / 1 / 0
Регистрация: 16.12.2011
Сообщений: 76
1

Одномерные массивы.Вставить * перед наименьшим элементом

14.01.2012, 22:49. Просмотров 458. Ответов 3
Метки нет (Все метки)

вставить * перед наименьшим элементом (если таких элементов несколько, вставить * перед каждым)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2012, 22:49
Ответы с готовыми решениями:

Вставить элемент перед отрицательным последним элементом
Вставить элемент перед отрицательным последним элементом.

Вставить число 128 перед четвертым элементом массива
1. Удалить первый элемент массива. 2. Вставить число 128 перед четвертым...

Перед максимальным элементом массива и после вставить число Z
Дан массив размера N. Перед максимальным элементом массива и после него...

Вставить нулевой элемент перед максимальным элементом в одномерном массиве
Решить через процедуры или функции 1.Вставить нулевой элемент перед...

Вставить произвольное число K перед каждым отрицательным элементом массива
Вставить произвольное число K перед каждым отрицательным элементом массива. Не...

3
Xmajs
23 / 23 / 21
Регистрация: 12.01.2012
Сообщений: 58
15.01.2012, 01:01 2
Можно так!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..100] of integer;
    i: integer;
    n: integer;
    min: integer;
begin
  writeln('Введите количество элементов массива: ');
  readln(n);
  writeln('Введите массив: ');
  for i:=1 to n do readln(a[i]);
  min:=a[1];
  for i:=1 to n do
    if a[i]<min then min:=a[i];
  writeln('Нужный массив: ');
  for i:=1 to n do
    if a[i]=min then write('*',a[i],' ') else write(a[i],' ');
end.
1
Калерчик
1 / 1 / 0
Регистрация: 16.12.2011
Сообщений: 76
15.01.2012, 18:46  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array[1..100] of integer;
 
    i: integer;
    n: integer;
    min: integer;
begin
a[i]:=random(82)-19;
 write(a[i]:4);
 writeln('введите количество элементов массива: ');
  readln(n);
  writeln('введите массив: ');
  for i:=1 to n do readln(a[i]);
  min:=a[1];
  for i:=1 to n do
    if a[i]<min then min:=a[i];
  writeln('нужный массив: ');
  for i:=1 to n do
    if a[i]=min then write('*',a[i],' ') else write(a[i],' ');
end.
0
sheldon-yura
30 / 30 / 15
Регистрация: 02.11.2011
Сообщений: 216
15.01.2012, 18:56 4
наверное так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a:array[1..100] of integer;
 
 i: integer;
 n: integer;
 min: integer;
 begin
 writeln('количество элементов ');
 readln(n);
 writeln('элементы массива: ');
 for i:=1 to n do readln(a[i]);
 min:=a[1];
 for i:=1 to n do
 if a[i]<min then min:=a[i];
 writeln('нужный массив: ');
 for i:=1 to n do
 if a[i]=min then write('*',a[i],' ') else write(a[i],' ');
 end.
а что это программа должна вообще делать?
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2012, 18:56

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

Вставить в массив по одному элементу перед каждым отрицательным элементом.
Вставить по одному элементу перед каждым отрицательным элементом.

Перед элементом массива с номером K вставить M новых элементов с нулевыми значениями
Дан массив размера N и два целых числа K и M (1 &lt; K &lt;N, 1 &lt;M &lt; 10). Перед...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru