Решения задач acmp.ru
Главная
Вход
Регистрация
Вторник, 29.09.2020, 01:45Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0009 Домашнее задание

Скачать файл можно после просмотра рекламы:

05.06.2012, 02:13
var a: array [1..10000] of integer;
    n: integer;
    t: text;
    max,i, min, sum, p, tmp: longint;

begin
     max:=1;
     min:=1;
     p:=1;
     sum:=0;

     assign(t,'input.txt');
     reset(t);
     readln(t,n);
     for i:=1 to n do
     begin
         read(t, a[i]);
         if (a[i]>a[max]) then max:=i;
         if (a[i]<a[min]) then min:=i;
         if (a[i]>0) then sum:=sum+a[i];
     end;
     close(t);

     if (min>max) then
     begin
          tmp:=min;
          min:=max;
          max:=tmp;
     end;

     for i:=(min+1) to max-1 do
         p:=p*a[i];

     assign(t,'output.txt');
     rewrite(t);
     writeln(t, sum, ' ', p);
     close(t);
end.
Категория: Pascal | Добавил: shum
Просмотров: 2043 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020