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

203

286

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

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

Masha7698755g

Информатика

4,5(96 оценок)

1)program fagasg; var x1,y1,r: real; begin writeln('введите х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; begin h: =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.