ПОМОГИТЕ ПОЖАЛУЙСТА-ИНФОРМАТИКА 9 КЛАСС

Question

ПОМОГИТЕ ПОЖАЛУЙСТА-ИНФОРМАТИКА 9 КЛАСС

---

Comments

Отчет делайте сами по вам извесным шаблонам и тп

Answer 1

Var
    name, maxname: string;
    weigth, i, max: integer;

begin
    for i := 1 to 5 do
    begin
        write('Введите название ягоды - ');
        readln(name);
        write('Введите вес ягоды - ');
        readln(weigth);
        
        if weigth > max then begin
            max := weigth;
            maxname := name;
        end;
    end;
    writeln(maxname, ' = ', max);
end.

Comments

спасибо,но мне это задание нужно было сдать сегодня утром. поэтому уже поздно.

---

Если вам важно по времени, то указывали бы дату. тогда бы просто не тратила бы время на ответ