Статистика
Всего в нашей базе более 4 326 128 вопросов и 6 444 097 ответов!

помогите решить задачу в паскаль!!!

5-9 класс

Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.Числа, следующие за числом 0, считывать не нужно.
у меня есть такой вариант но нужен еще один
readln(a);begin
if a > 0 then
if (max = 0) or (a > max) then
begin
max := a;
k := 1 end
else if a = max then
inc(k);
end;
until a=0;
write(k);
end.

89167002796 10 нояб. 2015 г., 7:28:43 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Olkavolka
10 нояб. 2015 г., 8:25:01 (3 года назад)

var t,i,x,max:integer;
begin
max:=0;t:=0;
repeat
begin
x:=0;
read(x);
if (x>0) and (x=max) then i:=i+1;
if x>max then
begin
max:=x; 
i:=1; 
end;
t:=t+1;
end;
until (x<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
end.

Ответить

Другие вопросы из категории

Найти сумму чисел от -10 до 10

(Надо блок-схему и программу)
Зарание спасибо !

Пусть имеется 5 страниц. На каждой странице - по 60 строк. В строке - 80 символов. а)Какой объем в памяти в Кбайтах требуется для хранения этого текста

в памяти ЭВМ? б) Какой объем в памяти в байтах будет содердать данный текст, если его закодировать с помощью 64 - символьного алфавита?

Читайте также

PASCAL. нужна помощь. ПОЖАЛУЙСТА помогите решить задачу в PASCAL (если рОЧЕНЬ нужна помощь. ПОЖАЛУЙСТА помогите решить задачу в PASCAL (если решиш - проси

что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?

пожалуйста, помогите решить задачи по Паскалю!!!

1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,

ПОМОГИТЕЕ


Помогите решить задачи на паскаль.

1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.



Вы находитесь на странице вопроса "помогите решить задачу в паскаль!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.