erk
Новичок
|
   
Массив записей содержит фамилии участников соревнования и количество набранных баллов. Выведите фамилии участников, показавших три лучших результата. Таких участников может быть больше трех (некоторые участники показали одинаковые результаты). спс
|
Всего сообщений: 2 | Присоединился: ноябрь 2010 | Отправлено: 1 дек. 2010 1:43 | IP
|
|
marina11
Новичок
|
(Сообщение отредактировал marina11 1 дек. 2010 20:13)
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:12 | IP
|
|
Sarben
Новичок
|
Необходимо сделать сортировку (по убыванию). Объект сортировки - количество набранных баллов.
И выбираешь первые три места...
|
Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:51 | IP
|
|
erk
Новичок
|
спс
|
Всего сообщений: 2 | Присоединился: ноябрь 2010 | Отправлено: 2 дек. 2010 10:53 | IP
|
|
S2DenT
Новичок
|
Люди, помгите !!
Задача такая:
1) Введите 2 массива стостоящие не более чем 13 элементов
2) Вывести их на экран
3) Сформировать новый массив являющийся частным 1 на 2 массив
4)Вывести новый массив на экран!
5)Подсчитать количество отрицательных элементов
Я прогу на писал , но она не проходит(((
вот исходник. подскажите где ошибка и как ее исправить!!!!!!!
Program Massiv;
Uses crt;
Const n=13;
type mas=array[1..n] of integer;
Vara,b,c:mas;
m,i:integer;
Sa,Sb,Sc:integer;
Procedure wwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(name,'[',i,']=');
ReadLn(x);
End;
End;
Procedure wiwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(x);
Writeln;
End;
End;
Procedure newmas(x,y:mas; n:integer; var z:mas);
Var i:integer;
Begin
for i:=1 to n do z:=x/y
End;
Function otr(x:mas; n:integer):integer;
Vari:integer;
S:integer;
Begin
For I:=1 to n do
If x<0 then
S:=S+1;
End;
Begin
Clrscr;
Writeln('Введите размер массива:');
Readln(m);
Writeln('Введите первый массив:');
Wwod(a,m,'a');
Writeln('Введите второй массив:');
Wwod(b,m,'b');
Writeln('Вывод первого массива:');
Wiwod(a,m,'a');
Writeln('Вывод второго массива:');
Wiwod(b,m,'b');
newmas(a,b,m,c);
Writeln('Вывод нового массива:');
Wiwod(c,m,'c');
Sa:=otr(a,m);
Sb:=otr(b,m);
Sc:=otr(c,m);
Writeln('Количество отрицательных элементов первого массива=',Sa);
Writeln('Количество отрицательных элементов второго массива=',Sb);
Writeln('Количество отрицательных элементов нового массива=',Sc);
Readln;
End.
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 2 дек. 2010 16:59 | IP
|
|
Sarben
Новичок
|
Какие ошибки выдает компилятор?
|
Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 2 дек. 2010 18:34 | IP
|
|
S2DenT
Новичок
|
уже никакие!
уже все решил!=)
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 2 дек. 2010 18:58 | IP
|
|
|
Форум
паскаль
