Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.09.2017, 17:16   #1
Luсifer
 
Регистрация: 26.09.2017
Сообщений: 9
Печаль нужна помощь по паскалю

Дано N чисел определить количество чисел, равных минимальному значению
Вот код , учитель сказал что нельзя выводить min код работает но надо изменить добавив переменную S и сделать вывод чисел на нее.
Код:
program Six;

var
  N, i: integer;
  R, min: real;

begin
  write('сколько чисел');
  read(N);
  write('задай число');
  read(R);
  min := R;
  for i := 2 to N do
  begin
    write('задай число');
    read(R);
    if R < min then min := R;
    while min = R do Min := min + 1;
  end;
  write('Ответ=', min);
end.

Последний раз редактировалось Аватар; 26.09.2017 в 18:23.
Luсifer вне форума Ответить с цитированием
Старый 26.09.2017, 17:52   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

так?
Код:
var c,min,i,N,s;
begin
writeln("N=");
readln(n);
c=1;
writeln("Число:");
readln(min);
for i:=2 to n do
 begin
	writeln("Число:");
	readln(s);
	if s<min then
	 begin
		min:=s;c=1;
	 end
	else 
	if s = min then
		inc(c)
 end;
 writeln(min);
 writeln(c);
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.09.2017, 18:19   #3
Luсifer
 
Регистрация: 26.09.2017
Сообщений: 9
Радость Александр спасибо, да верно немного подредактировал и вобще отлично

Спасибо
Luсifer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
СРОЧНО! Нужна помощь по паскалю Султанбек Паскаль, Turbo Pascal, PascalABC.NET 1 14.09.2017 19:00
Нужна помощь по паскалю! aShsville Помощь студентам 1 15.12.2014 20:13
Срочно нужна помощь по паскалю Саша91-09 Помощь студентам 5 05.05.2009 10:10
Ребят, нужна помощь по Паскалю Agent[PNZ] Помощь студентам 4 14.12.2007 23:34
Нужна помощь по паскалю!! 4meen Помощь студентам 5 03.12.2007 12:09