Подсчитайте количество максимальных элементов списка
Примечание:
mrkirt, ну тут нет ни процедуры,ни нормального вывода элементов.
Примечание:
mrkirt, вы могли написать порядок процедур что очень бы мне помогло, гуглить и я умею
1. Заполнение списка
2. Сравнение элементов
3. Поиск максимального Элемента
4. Процедура вывода
я вот так вот думаю, но судя по всему не прав
Примечание:
если кому понадобится)
Type spis=^Tspis;
Tspis=Record
data:integer;
next:spis;
End;
Var l,x:spis;
i,k,n,mx:integer;
Procedure Add(Var u:spis;n:integer);
Var x:spis;
Begin
if u=nil then
Begin
New(u);
U^.next:=nil;
u^.data:=n;
End
else
Begin
New(x);
x^.data:=n;
x^.next:=u;
u:=x;
End;
End;
Procedure OutPut(u:spis);
Begin
While u<>nil do
Begin
write(u^.data:3);
u:=u^.next;
End;
writeln;
End;
Procedure Max(u:spis;Var mx:integer);
Begin
mx:=u^.data;
While u<>nil do
Begin
if u^.data>mx then mx:=u^.data;
u:=u^.next;
End;
End;
Begin
Repeat
write('Количество чисел: ');readln(n);
Until n>0;
For i:=1 to n do
Add(l,random(10));
OutPut(l);
Max(l,mx);
writeln('Max = ',mx);
While l<>nil do
Begin
if mx=l^.data then inc(k);
x:=l;
l:=l^.next;
Dispose(x);
End;
writeln('Количество max = ',k);
readln;
End.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.