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

Помогите пожалуйста!

1

Ответы и объяснения

Лучший Ответ!
2013-05-27T19:54:51+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.


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.