Задачи в Delphi

[Мурик]

Здравствуйте, уважаемые форумчане!
У меня к вам огромная просьба - завтра брату сдавать зачет по информатике, помогите с решением задач:
1. 7 рабочих в течение недели обрабатывают на токарных станках одинаковые детали. Известно, сколько каждый из рабочих обработал деталей за неделю. Сколько рабочих обработали за неделю от 50-ти до 70-ти деталей?
2. Дан список оценок 15 абитуриентов на ЕГЭ по информатике. Чему равен средний бал на экзамене?
3. Фирма проводит конкурс на разработку дешевой программы для решения определенной задачи. Известны фамилии 17-ти претендентов на премию и стоимости их разработок. Кто выиграет конкурс?
Пожалуйста.

[Serge_Bliznykov]

Вам, с такими запросами, имхо, во Фриланс надо...

[Zer0]

1)

var i,a,count:integer;
begin
 count:=0;
 for i:=1 to 7 do begin
  write (i,' rabochiy: ');
  readln(a);
  if (a>=50) and (a<=70) then inc(count);
 end;
writeln ('Otvet: ',count,' rabochyh');
readln;
end.

[Zer0]

2)

var a,i:integer; sr:real;
begin
 sr:=0;
 for i:=1 to 15 do begin
  write ('Ball ',i,' abiturienta: ');
  readln(a);
  sr:=sr+a;
 end;
sr:=sr/15;
writeln ('Sredniy ball: ',sr:0:2);
readln;
end.

[Zer0]

3)

var min,st:real; i:integer; fam,s:string;
begin
 write ('Familiya 1:');
 readln(fam);
 write ('Stoimost:');
 readln(min);
 for i:=2 to 17 do begin
  write ('Familiya ',i,':');
  readln(s);
  write ('Stoimost:');
  readln(st);
  if st<min then begin
   min:=st;
   fam:=s;
  end;
 end;
 writeln('Konkurs viigral ',fam);
 readln;
 end.

P.S. Код писал прямо тут и не проверял, поэтому возможны синтаксические ошибки

[Мурик]

Спасибо спасибо спасибо )))) Вы самый лучший