У чому полягає особливість пошуку першого елемента лінійної таблиці який відповідає заданій умові?

279

386

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

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

alenaefremova79

Информатика

4,5(64 оценок)

var x,y,z: real; beginreadln(x,y,z); if (x< y+z) and (y< x+z) and (z< x+y) then beginif (x=y) and (y=z) then writeln('ravnostoronnii') else writeln('ne ravnostoronnii'); end else writeln('ne vozmojno sostavit'); end.

var a: array[1..10]of integer; i,sum: integer; beginfor i: =1 to 10 do readln(a[i]); for i: =1 to 9 do beginif (a[i]> 0) and (a[i+1]< 0) then sum: =sum+1; if (a[i]< 0) and (a[i+1]> 0) then sum: =sum+1; end; writeln(sum); end.