Найдите общее кол-во собранного картофеля.результаты сбора и названия бригад хранятся в соответствующих массивах.ОПределите названия и результаты тех

+ 0 -

Ruslan1808

22 сент. 2015 г., 19:27:06 (8 лет назад)

Program Mazoff3;
uses crt;
const n = 20;
var
  brigada:array [1..n] of string;
  potato:array [1..n] of real;
  i,maxnum,minnum:integer;
  max,min,sum: real;
begin
  randomize;
  for i:=1 to n do
    begin
      write('Введите название бригады ');readln(brigada[i]);
      write('Введите результат этой бригады ');readln(potato[i]);
    end;
  max:=potato[1];
  min:=potato[1];
  sum:=0;
  maxnum:=1;
  minnum:=1;
  for i:=1 to n do
    begin
      sum:=sum+potato[i];
      if max<potato[i] then
        begin
          max:=potato[i];
          maxnum:=i;
        end;
      if min>potato[i] then
        begin
          min:=potato[i];
          minnum:=i;
        end;
      end;
  writeln();writeln();
  writeln('Внимание! Alphaeus объявляет результаты соревнований!');
  writeln('Всего собрано ',sum,' тонн');
  writeln();
  writeln('Наилучший результат показала бригада ',brigada[maxnum],'!!! Они собрали ',potato[maxnum],' тонн!!!');
  writeln('Так держать!!!');
  writeln();
  writeln('Наихудший результат показала бригада ',brigada[minnum],'!!! Они собрали всего лишь ',potato[minnum],' тонн!!!');
  writeln('Позор!!!');
end.