Имеется следующий массив из 5 элементов 1 2 3 4 5 3 6 9 12 15 придумать программу, которая заполнит - id790192720220823 от katyaprodan 23.08.2022 20:07

Question

Информатика: Имеется следующий массив из 5 элементов 1 2 3 4 5 3 6 9 12 15 придумать программу, которая заполнит данный массив и найдёт сумму этих элементов. в конце программы выведет на экран сумму этих элементов

katyaprodan · Accepted Answer

var x1,y1,x2,y2,x3,y3,x4,y4:integer;

N1,N2:real;

begin

writeln('Введите координаты первой точки - ');

readln(x1,y1);

writeln('Введите координаты второй точки - ');

readln(x2,y2);

writeln('Введите координаты третьей точки - ');

readln(x3,y3);

writeln('Введите координаты четвертой точки - ');

readln(x3,y3);

n1:= sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );

n2:= sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );

writeln('Длина первой диагонали - ',n1);

writeln('Длина второй диагонали - ',n2);

readln;

end.

Держи.

MOGZ ответил