Колдунчик.ру

u  

бугалтерия учреждения подготовила ведомость зарплаты сотрудников, в которой указаны фамилии сотрудников и зарплата каждого. отдельный сотрудник упомянут в ведомости один раз. найти сотрудников с наименьшей и наибольшей зарплатой. у меня получилось вот что, но это неправильно помогите исправить!!!
Program ;
uses wincrt;
var a:array [1..100] of char;
b:array [1..100] of real;
k,j,i,n:integer;
Amin,max:real;

begin

write ('n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');readln(a[i]); end;


for i:=1 to n do begin
write('b[',i,']=');readln(b[i]); end;

Amin:=b[1];
max:=b[1];
for i:=1 to n do begin
if b[i]<Amin then begin Amin:=b[i];j:=i; end;
if b[i]>max then begin max:=b[i];k:=i;end;
end;
WriteLn('min=',Amin,'---',' ' ,a[j]);
writeln ('max=',max,'---',' ' ,a[k]);


end.

u  

имхо, если обзывание сотрудников одной буквой вписывается в требования, то алгоритм посчитает все верно, если верно ввести исходные данные :/

u  

вот опять запуталась с задачей помогите: имеется список вузов, в котором для каждого вуза указывается:наименование, план приема, кол-во поданных заявлений. среди всех вузов,у которых план приема больше
1000 чел., найти вуз с наибольшим конкурсом. вот что получилось:
Program Zplata;
uses wincrt;
var name:array [1..10] of string[8];
b:array [1..10] of word;
c:array [1..10] of word;
kon:array [1..10] of real;
r,n,i,j,k:integer;
max:real;
begin
write('ввод n');
readln(n);
for i:=1 to n do begin
write('name[',i,']=');
readln(name[i]);
write('план преима=');
readln (b[i]);
write('заявления=');
readln (c[i]);
end;
r:=0;
for i:=1 to n do begin
if b[i]>1000 then r:=r+1;
end;

for i:=1 to r do begin
j:=1 ;
kon[j]:=c[i]/b[i];
j:=j+1;
end;
max:=kon[1];
for j:=1 to r do begin
if kon[j]>max then
begin max:=kon[j]; k:=j; end else if kon[1]=max then k:=1;
end;
writeln('max=',max);
writeln('name=',name[k]) ;
end.
исправте мои ошибки пожалуйста!!!

u  

Я думаю так:

u  

эта задача на вложенные циклы:по итогами кругосветной регаты,в которой все участники стартовали одновременно, сформирован протокол. в нем указаны:название яхты,дата финиша в виде число месяца и номер месяца,время финиша в часх и минутах и водоизмещение яхты в тоннах.согласно регламенту регаты победителем является тот, кто первым пришел к финишу.
если несколько регат пришли к финишу одновременно с точностью до часов и минут, победителем признается яхта с наименьшим водоизмещением. определить победителя гонки. предполагается, что все закончили гонку до нового года, год високосный,и у яхт разное водоизмещение.
помогите не могу решить!!!

u  

person, если ты человек, то установи себе аватару, пожалуйста

u  

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

u  

что-то мне в голову не лезет, как тут вложеные циклы использовать о_О. Я б это одним циклом забацал, и все... Правда можно еще расположить их всех по возрастанию (убыванию) т.е. отсортировать - так тоже можно прикрутить вложеный цикл.. Но это ненужное увелицении времени выполнения получится (в разы).. Может там больше требуется в задании, или оно не на вложеный цикл

u  

ну помогите решить без вложенных циклов , а то я совсем запуталаь в ней!!!