Объяснение:
const
n = 10;
ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);
var
i:integer;
is_first_pol:boolean;
raz_pol:integer;
begin
raz_pol:=0;
is_first_pol:=true; // флаг того, что найденное положительное число - первое
for i:=1 to n do begin
if (ar[i] > 0) then
if (is_first_pol) then begin
// если найденное полодительное число - первое, то
raz_pol:=ar[i]; // в нашу разницу заносим это число
is_first_pol:=false; // меняем флаг
end
else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу
end;
writeln(raz_pol);
end.
Поделитесь своими знаниями, ответьте на вопрос:
кто шарит ! y=(a+b+c)*(a+b) а=1, в=0, с=0 вторая скобка -над буквой а и в чёрточка . и одна общая черта над всем выражением . вообщем , это информатика(9 класс ) , тема: логические элементы надо составить схему и все расписать ! заранее !