Паскаль. - Страница 2 - ФОРУМ ПОСТУПИМ.РУ
Главная
Поиск репетитора
Коллективный блог
публикаций
Форум (обсуждаем ЕГЭ 2020)
тем и сообщений
Для учебы




Войти
или
Зарегистрироваться
Новые сообщения · Участники · Правила форума · Поиск по форуму · RSS
  • Страница 2 из 2
  • «
  • 1
  • 2
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Паскаль. (10-20 минут.)
Паскаль.
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" пробел "название" (название должно начинаться с буквы).
и есчо а чо ты хател написать? че за задание? неушто в задании небыло такое понятия каг массив


 
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Паскаль. (10-20 минут.)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:








© 2006 - 2023 Поступим.ру Информация:
О проекте
Контакты

Регистрация на сайте
Статистика сообщества
Пользовательское соглашение
Разделы:
Поиск репетитора
Форум сообщества
Коллективный блог
Материалы для учебы
ЕГЭ 2021
RSS:
RSS форума
RSS блога