Question

1 задача : Даны
три положительных числа a,
b, c. Проверить,
могут ли они быть сторонами прямоугольного
треугольника.
2 задача : Используя
оператор цикла For,
найти количество положительных чисел
N чисел        Заранее спасибо =)

Answer 1

// 1.

var
a,b,c: real;

begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
 if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
 else writeln('Треугольник не прямоугольный.');
end.

// 2.

var
A: array [1..100] of integer;
x,i,n: integer;

begin
writeln('Введите кол-во чисел N: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do readln(A[i]);
writeln('Вы ввели: ');
for i:= 1 to n do write(A[i]:4);
writeln;
for i:= 1 to n do if A[i] > -1 then x:=x+1;
writeln('Среди них положительных: ',x);
end.