Cat

(Джерело: http://www.olymp.vinnica.ua/index_ua.php?lng=ua&cid=114)

Задача. Одного разу кіт Леопольд на рибалці наловив N (1<= N <=100) риб. Прийшовши додому він ретельно їх зважив, пронумерував кожну рибу та записав результати до зошита. Допоможіть Леопольду знайти вагу найбільшої та найменшої рибини, та вагу всієї риби, яку зловив кіт. Вага рибини - ціле число, не більше 1000. Всі розрахунки не виходять за межі типу integer Turbo Pascal.

Технічні умови. Програма Cat читає з клавіатури кількість рибин, а далі вагу кожної рибини в порядку їх номерів. Всі числа в одному рядку через пропуск. Програма виводить на екран одним рядком через пропуск вагу найважчої та найлегшої рибини та сумарну вагу спійманих Леопольдом риб.  

Приклад.
Введення: 5 2 3 5 7 8
Виведення: 8 2 25

Розв'язання.

Запишемо алгоритми мовами програмування.

Free Pascal:
Var N, R, Max, Min, S : Integer;
Begin
 Read (N);
 S := 0;
 Min := 1000;
 Max := 1;
 For N := 1 To N Do Begin
  Read (R);
  If Min > R
   Then Min := R;
  If Max < R
   Then Max := R;
  S += R;
 End;
 Write (Max, ' ', Min, ' ', S);
End.

C++:
#include <iostream>
using namespace std;
int main(){
 int n, r;
 cin >> n;
 int min=1000, max=1, s=0;
 for (int i=1; i<=n; i++) {
  cin >> r;
  if (r < min)
   min=r;
  if (r > max)
   max=r;
  s+=r;
 }
 cout << max<< ' '<< min<< ' '<< s;
}