Задан одномерный массив а(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.

//pascalabc.net 3.2 сборка 1318 var   x,x1,i: integer;   xs: string;   c: char; begin readln(x); xs: =inttostr(x); for i: =1 to length(xs) div 2 do   begin     c: =xs[i];     xs[i]: =xs[length(xs)-i+1];     xs[length(xs)-i+1]: =c;   end; x1: =strtoint(xs); if x1> x then writeln(x1,'> ',x) else   if x1< x then writeln(x,'> ',x1) else     writeln(x1,'=',x); end. пример ввода: 1230 пример вывода: 1230> 321

1.  алг нач   цел а   ввод а   вывод div(a, 1000), 'тонн' кон 2. var x, i: integer; begin write('введите трёхзначное число:   '); readln(x); if ( x  < 100  ) or ( x> 100 ) then writeln('число не трёхзначное! ') else begin i : =x mod 10; write(i) write(x div 100); write(x div 10 mod 10); end; end. 3.

было число ав

стало число 2ав2

разложим его на разряды

2ав2=2*1000+а*100+в*10+2=2002+100а+10в

по условию это в 32 раза больше исходного двузначного числа ав, т.е.:

32ав=2ав2  ( число ав тоже разложим на разряды, получим 10а+в)

32(10а+в)=2002+100а+10в

32(10а+в)=2002+10(10а+в)

32(10а+в)-10(10а+в)=2002

22(10а+в)=2002

10а+в=2002: 22

10а+в=91

итак, искомое число 91