Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.
Правильные 1, 2, 4 варианты
Не могу прислать фото, так что буду словесно описывать
начало
в паралеллограмме:а,б,с
ромб:а=б
ветка да: в паралелограмме (с). конец ветки
ветка нет: ромб (а>б): ветка да (в паралеллограмме (б) конец ветки; ветка нет (в паралеллограмме (а)) конец ветки