Заменить первый отрицательный элемент нулём. паскаль абц. обязательно нужно использовать команду рандомайз. ниже пример не является верным. в нём не хватает команды рандомайз var a: array[1..10] of integer; i, t: integer; begin for i : = 1 to 10 do read(a[i]); for i : = 1 to 10 do begin if (a[i]< 0) and t=0 then begin a[i]: =0; t: =1; end; writeln(a[i]); end; end.

Const   n=10; var   a: array[1..n] of integer;   i: integer;   t: boolean; begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i]: =random(51)-25;       write(a[i]: 4)   end;   writeln;   t: =false; i: =1;   repeat       t: =(a[i]< 0);       if t then a[i]: =0;       inc(i)   until t;   writeln('результирующий массив');   for i : = 1 to n do write(a[i]: 4) end. тестовое решение: исходный массив   13  12 -19 -23  12 -11 -22 -13  23  -1 результирующий массив   13  12    0 -23  12 -11 -22 -13  23  -1

Ближе к началу координат та из точек, чей квадрат расстояния до начала координат x^2 + y^2 меньше. у меня описан алгоритм что_ближе, который принимает аргументами 4 вещественных числа - координаты точек и выводит сообщение о том, какая из точек ближе. у меня для примера рассматриваются точки (1, 1) и (2, 0) - первая точка ближе, (4, 8) и (1, 7) - вторая точка ближе, и (3, 4) и (0, 5) - точки на одинаковом расстоянии. вы можете задавать значения и с клавиатуры, и записывать их сразу в текст программы, в зависимости от того, что требуется. алг нач   что_ближе(1, 1, 2, 0)   что_ближе(4, 8, 1, 7)   что_ближе(3, 4, 0, 5) кон   алг что_ближе(вещ x1, y1, x2, y2) нач   вещ d   d : = (x1*x1 + y1*y1) - (x2*x2 + y2*y2)   выбор     при d < 0: вывод "первая точка ближе", нс     при d > 0: вывод "вторая точка ближе", нс     иначе вывод "точки на одинаковом расстоянии", нс   все кон

Объяснение:

Довідка

(виписка з будинкової книги про склад сім'ї і прописку)

Даний гр. Терлак О.М. проживає і постійно прописаний у м. Харкові на бульварі Пушкіна, буд. 12, кв.4 у двокімнатній ізольованій квартирі з житловою площею у 32м², розташованій на 3 поверсі 5-поверхового будинку, за який відповідає ЖЕО №3 міського управління житлового господарства. Особистий рахунок відкритий на гр. Терлака О.М.

Будинок має доступ до газу, водопровідної води, каналізації і парового опалення.

Оформлення будинку і житлового майданчику навколо нього цегляне.

На даному житловому майданчику проживають п'ятеро людей: Терлак О.М. (чоловік), Терлак Л.П. (жінка), Терлак К.О. (син), Терлак А.О. (донька), Терлак П.Л. (мати)