З клавіатури вводиться N елементів цілочисельного масиву.Знайти суму і добуток додатних елементів.

159

338

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

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

Maksim77769

Информатика

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

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin var n: =4; var xp: =new real[n]; var yp: =new real[n]; writeln('введите парами координаты четырех вершин'); for var i: =0 to n-1 do read(xp[i],yp[i]); var (x,y): =readreal2('введите координаты точки: '); var (i,j,c): =(0,n-1,false); while i< n do begin if ((yp[i]< =y) and (y< yp[j]) or (yp[j]< =y) and (y< yp [i])) and (x< (xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c: =not c; j: =i; i+=1; end; if c then writeln('внутри') else writeln('не внутри') end. примеры введите парами координаты четырех вершин 1 4 6 9 9 6 4 1 введите координаты точки: 1.5 1.6 не внутри введите парами координаты четырех вершин 1 4 6 9 9 6 4 1 введите координаты точки: 4 7 внутри