Паскаль. - Страница 2 - ФОРУМ ПОСТУПИМ.РУ

Паскаль.

rusakovwn

Дата: Вторник, 2010-06-29, 2:41 PM | Сообщение # 16

Студент

Группа: Пользователи

Сообщений: 39

Репутация: 0

Награды: 0

Замечания: 0%

Статус: Offline

Город: buzuluk

прошу проверить решение
Program401;
uses crt;
var i:integer;
x,y,xmin,xmax,nmin,nmax: real;
begin
clrscr;
readln (x);
xmin:=x; xmax:=x;
for i:=2 to 10 do
begin
readln (y);
if y<xmin then
begin
xmin:= y;
nmin:= i;
end;
if y>xmax then
begin
xmax:= y;
nmax:= i;
end;
end;
rez:= xmax-xmin;
writeln ('rez=',rez);
writeln ('nmin=',nmin);
writeln ('nmax=',nmax);
end.

tekos it is very good

αdmin

Дата: Среда, 2010-06-30, 0:38 AM | Сообщение # 17

Профессор

Группа: Проверенные

Сообщений: 838

Репутация: 427

Награды: 123

Замечания: 40%

Статус: Offline

че это?

Quote

Program401;

прога начинаетсо со слова "Program" пробел "название" (название должно начинаться с буквы).
и есчо а чо ты хател написать? че за задание? неушто в задании небыло такое понятия каг массив