Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [TP] мин и макс число в последовательности

Автор: GreMail 21.12.2006, 20:26

Вводится последовательность чисел, заканчивающихся нулем. Найдите минимальное и масимальное значения среди чисел этой последовательности, а также их среднее арифметическое, 0 при этом не учитывается.

Автор: Rodman 21.12.2006, 21:28

Код


var i,j,k,min,max:integer;
begin
   min:=111110;
   max:=-10000;
   writeln('Enter number');
   readln(i);
   j:=1;
   if(i<min)then
      min:=i;
   if(i>max)then
       max:=i;
    k:=i;
   repeat
        j:=j+1;
        writeln('Enter number');
       readln(i);
      if(i<min)then
         min:=i;
      if(i>max)then
         max:=i;
       k:=k+i;
  until(i=0);
  writeln('Max = ', max);
  writeln('Min = ', min);
  writeln('Srednee = ', k/j);
  readln;
end.

Автор: LesnoyChelovek 21.12.2006, 21:36

Чёрновой вариант:

Код


program Project2;

{$APPTYPE CONSOLE}

var a:array[1..10] of integer;
    min,max,i,j:integer;
    srednee:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
writeln('====Nabor znacheniy====');
for i:=1 to 10 do
begin
writeln;
write('a[',i,']=');
readln(a[i]);
if a[i]=0 then break;
end;

min:=a[1];
for j:=1 to i-1 do
if min>a[j] then min:=a[j];
writeln('minimum=',min);

max:=a[1];
for j:=1 to i-1 do
if max<a[j] then max:=a[j];
writeln('maximum=',max);

srednee:=(max+min)/2;
writeln('Srednee=',srednee:4:4);

readln;
end.