Определить результаты спортсменов...

@ira051995 · Регистрация: 16.11.2010

Author24 — интернет-сервис помощи студентам

В массиве хранится информацыя о результатах 22 спортсменов,участвовавших в соревнованиях по бегу на 100 метров.Определить результаты спортсменов,занявших первое и второе места.
Примечание Задачу решить ,не используя два прохода по массиву.

@Dekio · 24.11.2010, 20:46

пожалуйста

Pascal

program try;
const 
n=5;
var
a :array[1..n] of real;
i :integer;
m1,m2 :real;
begin
m1:=0; m2:=0;
writeln('Задайте результаты спортсменов');
 
for i:=1 to n do
begin
readln(a[i]);
if a[i] > m1 then
m1:=a[i];
if (a[i] > m2) and (m1 > a[i]) then
m2:=a[i];
end;
writeln('Первое место ',m1:3:1);
writeln('Второе место ',m2:3:1);
end.

@ira051995 · 24.11.2010, 22:04 **[ТС]**

Спасибо!!!

@ira051995 3 / 3 / 0 Регистрация: 16.11.2010 Сообщений: 140
		1
	Определить результаты спортсменов... 24.11.2010, 20:33. Показов 1349. Ответов 2 Метки нет (Все метки) В массиве хранится информацыя о результатах 22 спортсменов,участвовавших в соревнованиях по бегу на 100 метров.Определить результаты спортсменов,занявших первое и второе места. Примечание Задачу решить ,не используя два прохода по массиву. 0

@ira051995 3 / 3 / 0 Регистрация: 16.11.2010 Сообщений: 140
	24.11.2010, 22:04 [ТС]	3
	Спасибо!!! 0

Определить результаты спортсменов...

Решение