Откорректировать середину программы. необходимо найти сумму элементов массива, расположенных между первым и вторым положительными элементами. моя программа: var a: array[1..100]of real; i,n,k,p: integer; s: real; begin assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); readln(n); for i: =1 to n do read(a[i]); i: =1; while(i< =n)and(a[i]< =0) do i: =i+1; if i> n then writeln('0') else begin k: =i; i: =n; while(i> =1)and(a[i]< =0)do i: =i-1; if i< 1 then writeln('0') else begin for i: =k+1to p-1 do s: =s+a[i]; writeln(s: 0: 3); end; end; close(input); close(output); end.

221

451

Посмотреть ответы 2

Ответы на вопрос:

prohorowanyura

Информатика

4,7(69 оценок)

readln(n); for i : = 1 to n do read (a[i]); i : = 1; while (i < = n) and (a[i] < = 0) do i : = i + 1; if i > n then writeln ('0') else begin k : = i; i : = i + 1; while (i < = n) and (a[i] < = 0) do i : = i + 1; if i > n then writeln ('0') else begin p : = i; for i : = k + 1 to p - 1 do s : = s + a[i]; writeln(s: 0: 3); end; end; что я сделал: после нахождения первого элемента не надо идти в конец и с конца перебирать в другую сторону. надо просто продолжить в том же направлении с того же места. и надо не забыть найденное значение сохранить в p - у вас она вовсе не инициализировалась.

PolyMoly1

Информатика

4,8(74 оценок)

ответ:

объяснение:

чтобы скачать торрент, вам нужно установить приложение utorrent. скачать его можно по этой ссылке: после того как приложение установлено, запустите скачанный torrent файл и дождитесь окончания загрузки. после этого в папке загрузки вы найдёте нужный вам файл.