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

Задача по циклам. Ввести с клавиатуры последовательность из N целых чисел

18.12.2012, 10:52. Показов 5666. Ответов 2
Метки нет (Все метки)

Ввести с клавиатуры последовательность из N целых чисел и определить максимальный или минимальный элемент встретился в последовательности первым.

Добавлено через 22 часа 54 минуты
Помогите чем можете плиз)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2012, 10:52
Ответы с готовыми решениями:

Ввести с клавиатуры 10 целых чисел и найти среди них количество нулей и сумму положительных
Нужно ввести с клавиатуры 10 целых чисел и найти среди них а) количество нулей б) сумму...

С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5
1.С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5

Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В
Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В, у которого B...

Ввести с клавиатуры последовательность из N целых чисел и определить максимальный или минимальный элемент встретился в последовательности первым
Ввести с клавиатуры последовательность из N целых чисел и определить максимальный или минимальный...

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,437
Записей в блоге: 1
18.12.2012, 13:42 2
Лучший ответ Сообщение было отмечено maxim_sumin как решение

Решение

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
Var m,n,imax,imin,i,max,min:integer;
Begin
    write('Введите n: ');readln(n);
    write('1-ое число: ');readln(m);
    imax:=1;imin:=1;
    max:=m;min:=m;
    For i:=2 to n do
    Begin
      write(i,'-ое число: ');readln(m);
      if m>max then
      Begin
        max:=m;
        imax:=i;
      End;
      if m<min then
      Begin
        min:=m;
        imin:=i;
      End;
    End;
    writeln('Max = ',max,' его индекс = ',imax);
    writeln('Min = ',min,' его индекс = ',imin);
    if imax>imin then write('Min встречается первым')
     else write('Max встречается первым');
    readln;
End.
1
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 12
18.12.2012, 15:38  [ТС] 3
Спасибо большое, очень помогли)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 15:38
Помогаю со студенческими работами здесь

Ввести последовательность из 9 чисел клавиатуры найти количество чисел значения которых равны 15 или 0
Помогите написать программу ввести последовательность из 9 чисел клавиатуры найти количество...

Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел .
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в...

Предложите пользователю ввести с клавиатуры последовательность положительных чисел
Помогите решить задачу к завтршнему дню( 1. Предложите пользователю ввести с клавиатуры...

Ввести с клавиатуры 10 целых чисел и распечатать их в одну строку
Ввести с клавиатуры 10 целых чисел и распечатать их в одну строку. При печати пропускать числа,...


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

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

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