1.Укажите, значение переменной К после выполнения данного фрагмента программы:
K:=-1;
WHILE K<4 DO K:=K+2;
2.Укажите, сколько раз выполнится тело цикла с данным заголовком:
K:=-1;
WHILE K<3 DO K:=K+2;
3.Укажите, значение переменной D после выполнения данного фрагмента программы:
N:=0;
D:=1;
WHILE N<10 DO
BEGIN
N:=N+4;
D:=D+N*2;
END;Иммерсивное средство чтения
( : 1)
4 Укажите, сколько раз выполнится тело цикла с данным заголовком:
D:=10;
5Укажите, значение переменной D после выполнения данного фрагмента программы:
N:=0;
D:=1;
WHILE N<5 DO
BEGIN
D:=D*2;
N:=N+1;
END;
Укажите, значение переменной D после выполнения данного фрагмента программы:
N:=1;
D:=0;
WHILE N<10 DO
BEGIN
D:=D+N;
N:=N+2;
END;
Укажите, значение переменной D после выполнения данного фрагмента программы:
N:=1;
D:=0;
WHILE N<10 DO
BEGIN
D:=D+N;
N:=N+2;
END;
Укажите, значение переменной D после выполнения данного фрагмента программы:
N:=1;
D:=0;
WHILE N<10 DO
BEGIN
D:=D+N;
N:=N+2;
END;

Ақпарат көзі – адам, ұжым және деректер. [1]. Деректерді жинау кезінде журналист ақпараттарды түрлі көздерден алады. Кейіпкер журналиске өзі немесе жолдастары жайында мәлімет беруге міндетті емес. Олардың экран алдында ашылулары үшін оған себеп, дәлел, сылтау керек. Егер олар жауап беруден бас тартқан жағдайда, қысым жасаудың қажеттігі жоқ. Мүмкін, сіз таңдаған кейіпкер туралы көпшілік пікірі басқаша болуы немесе сіз істейтін редакция жайындағы көзқарастың тым теріс бағытта да болуы мүмкін екенін ескеріңіз. Ақпарат алудың ұжымдық түріне формалды және формалды емес қатынас, жиналыс, мәжіліс, конференция, дөңгелек үстел, ба з конференциясы т.б. жатады. Мұның бағалылығы: онда шыншыл көзқарастардың үстемдік алып, журналистің проблема, оқиға туралы дәл, айқын ой түйіндеуіне жол ашатындығы. Ал айда, кей сәттерде шындықтан алып жататын деректердің де хабарланатынын ескеру керек. Журналист көпшілігінде деректерге жүгінеді. Деректермен танысуға автордың рұқсатымен кірісу қажет. Автордың рұқсаты бар екенін ескеру де қажеттілік және онда дәлдіктің кейде сәйкессіздіктің болатынын да аудиторияға қоса хабарлау шарттылық.

Объяснение:

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.