Задан одномерный массив а(n) (n< =60). на место минимального элемента массива записать сумму последних к элементов массива. если а[1]> =0, то умножить все элементы этого массива на квадрат минимального элемента данного вектора, а если а[1]< 0, то умножить все элементы на квадрат максимального элемента вектора. полученный массив распечатать. значение к вводится пользователем.

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.

1695-1696 – пётр первый делал свои знаменитые азовские походы.

1703 – пётр первый основал санкт-петербург. событие произошло 16 мая.

1709 – была полтавская битва, она произошла 27 июня.

пе́рвая мирова́я война́(28 июля  1914 —  11 ноября 1918 гг)

 

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.