Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
panotschka
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 4
1

Напечатать номера тех чисел последовательности, которые имеют наибольшую величину

01.07.2013, 21:25. Просмотров 947. Ответов 1
Метки нет (Все метки)

Данна непустая последовательность натуральных чисел .. за которой следует 0, напечатать номера тех чисел последовательности, которые имеют наибольшую величину.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2013, 21:25
Ответы с готовыми решениями:

Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, которые имеют нечётное количество символов
Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, которые...

Произведение тех чисел, которые в двоичном представлении имеют неравное число нулей и единиц.
Текстовый файл содержит несколько целых чисел, найти произведение тех чисел, которые в двоичном...

Найти сумму тех чисел, которые имеют остаток от деления на некоторое число m, равный 0
помогите плиз Дано n вещественных чисел. Найти сумму тех из них, которые имеют остаток от...

Найти произведение тех чисел последовательности, чей квадрат меньше порядкового номера вводимого числа
Будьте добры, помогите сделать задачу Ввести 13 чисел. Найти произведение тех из них. чей квадрат...

Получить сумму тех чисел данной последовательности,которые удовлетворяют условию
Оператор выбора. Даны целые числа a1,...,a50. Получить сумму тех чисел данной...

1
CodeR
Фрилансер
3390 / 2791 / 3000
Регистрация: 08.02.2012
Сообщений: 7,209
Записей в блоге: 1
02.07.2013, 07:33 2
Лучший ответ Сообщение было отмечено panotschka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array[1..100] of integer;
    i,k,imax:byte;
Begin
    Repeat
     write('Число: ');
     inc(k);
     readln(A[k]);
    Until A[k]=0;
    imax:=1;dec(k);
    For i:=2 to k do
     if A[i]>A[imax] then imax:=i;
    For i:=1 to k do
     if A[i]=A[imax] then write(i:2);
    readln;
End.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2013, 07:33

Получить сумму тех чисел данной последовательности, которые удовлетворяют условию
народ плиз помогите решить 2 задачки по паскалю))) 1)Даны целые числа а1,…,а50. Получить сумму тех...

Получить сумму тех чисел данной последовательности, которые удовлетворяют условиям.
помогите составить прогу:( Даны целые числа A1, ..., A80. Получить сумму тех чисел данной ...

Напечатать те слова последовательности, которые отличны от последнего слова и имеют максимальную длину
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...


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

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

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