лабораторная работа / Program lab5

Program lab5;

const M=100;

var mas: array[1..100] of integer;

i,k,n,a:integer;

Begin

write ('ввести размер массива n=');

Readln (n);

writeln('a');

readln(a);

k:=0;

For I:=1 to n Do

Begin

Write (ввести элемент массива');

Readln (mas[I]);

End;

For i:=1 to n-1 Do

If mas[i]>0 then

if mas[i]<=a then begin k:=k+1;

end;

if mas[i]*mas[i]>a then

writeln('пара соседних элементов',mas[i]);

writeln(mas[i+1]);

writeln('число элементов значения которых >0 и не >a',k);

end.

ввести размер массива n=5

aaaaaaaaaaaaaaaaaaaa

10

введите элемент массива3

введите элемент массива5

введите элемент массива12

введите элемент массива16

введите элемент массива18

para sosed elementov16

18

chislo elementov znach kotor >0 i ne >a2

Type EXIT to return to Turbo Pascal...

Microsoft(R) Windows 95

(C)Корпорация Microsoft 1981-1996.