VPF::[TP] мин и макс число в последовательности

GreMail

Дата 21.12.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 12.10.2006

Репутация: 1
Всего: 1

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

Rodman

Дата 21.12.2006, 21:28 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


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.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

LesnoyChelovek

Дата 21.12.2006, 21:36 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: 2
Всего: 10

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

Код


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.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »