Воднородном массиве вещественных чисел найти сумму элементов, предшествующих первому положительному элементу, и количество таких элементов

129

236

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

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

буду1

Информатика

4,6(98 оценок)

Program ok; var a: array[1..10] of real; sum: real; i,n: integer; begin randomize; sum: =0; for i: =1 to 10 do begin read(a[i]); end; for i: =10 downto 1 do begin if(a[i]> 0) then n: =i; end; for i: =1 to 9 do begin if (a[n] = a[i+1]) then sum: =sum+1; end; writeln(sum); end.