Составьте программу, которая заполняет массив из 20 элементов случайными целыми числами от -50 до 50 и выводит на экран сначала все отрицателтные элементы, а затем все положительные элементы. PascalABC.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

 

s: =5;

k: =s+10=5+10=15;

k: =s+k=5+15=20;

s: =2*k=2*20=40;

ответ: б)40

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end. 

 

Миле не хватило 2 рублей, следовательно если оля и ира добавили бы эти 2 рубля альбом можно было бы купить, но по условию этого не случилось. значит у оли с ирой вместе не было 2 рублей. если у оли х рублей, а у иры y/ тогда х+34=y+35 x+y< 2 x-y=1 2x< 3 x< 1,5 если стоимость альбома целое тогда альбом стоит 35. у иры 33. у оли -1 рубль. если ответ нецелое то стоимость альбома 35< =s< 35,5