1-ая задача
определите расстояние между двумя точками с координатами котоорых(x1,y2)
2-ая задача
вводится три числа 2 целых и одно дробное .Определить их сумму если они одного знака
3-ая задача
дано 2 массива одного типа и одинаковой размерности либо целое либо дробное сформулировать 3 массив кажждый элемент которого получены как наибольший из двух исходных (равных нет)
посчитать в этом вновь созданном массиве количество четных и нечетных
прошу вас решите пожалуйста срочно очень нужно прошу васссс очень очень нужно до завтра

Если не работает - отпиши, скину скрин программы, случайно мог при переносе кое-что стереть

спасибо вам громное вы мне очень помогли

пожалуйста)

Вторую задачу чуть исправил, забыл про сумму если все отрицательные

НИЧЕГО СПАСИБО ЕЩЕ РАЗ

1)program fagasg;var x1,y1,r: real;beginWriteln('Введите х1');readln(x1);Writeln('Введите у1');readln(y1);r:=sqrt(x1*x1+y1*y1);Writeln('Расстояние от х1 до у1=',r);end.2)Program fsgasghfd;var c,s: real;    a,b: integer;beginWriteln('Введите первое целое число');readln(a);Writeln('Введите второе целое число');readln(b);Writeln('Введите дробное число');readln(c);If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then s:=a+b+celse writeln('Знаки разные');If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);end.3)Program wrqrwqr;var A: Array[1..100] of integer;    B: Array[1..100] of integer;    C: Array[1..100] of integer;    s,i,h,g: integer;beginh:=0;g:=0;Writeln('введите размерность массива');readln(s);Writeln('Вводится первый массив');For i:=1 to s do  begin    Writeln('Введите элемент массива №',i);    readln(A[i]);  end;Writeln('Вводится второй массив');For i:=1 to s do  begin    Writeln('Введите элемент массива №',i);    readln(B[i]);  end;For i:=1 to s do  begin    If A[i]>B[i] then C[i]:=A[i]      else C[i]:=B[i];    If C[i] mod 2=1 then h:=h+1;    If C[i] mod 2=0 then g:=g+1;  end;  Writeln('Количество нечётных элементов в массиве:',h);  Writeln('Количество чётных элементов в массиве:',g);end.