Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
Ответ 3)
Так как высказывание истинно, когда истинно хотя бы одно.
Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6
Программа пройдётся по массиву. Если елемент массива больше М, то елемент будет записан в М. И так 10 раз. В конце выводится М. В итоге выведет 41 (самое большое число в массиве).