Const n = 10; var a : array [1..n] of integer; r : boolean; i,j : integer; begin //Формирование массива пропущено
r := true; While r do begin if a[i] mod 2 =0 then begin for j := n-1 downto i + 2 do a[j] := a[j-1]; a[i+1] := 0; r := false; end; i := i +1; end; for i := 1 to n do writeln (a[i]); end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)
Бірлік кесіндісі 1 см болатын координаталық түзуде А(-1) және В(5)
нүктелерін белгілеңдер. А және В нүктелерінің арақашықтығын табыңдар;
ә) А нүктесінен 2 см қашықтықта орналасқан А1 және А2 , ал В нүктесінен
3 см қашықтықта орналасқан В1 және В2 нүктелерін координаталық
жазықтықта белгілеңдер. Олардың координаталарын жазыңдар. [4]
2. х айнымалысының орнына қойғанда |х| < 2,3 теңсіздігі ақиқат болатындай
барлық бүтін сандарды жазыңдар. [2]
3. -2
3
7
+ 54
7
+ |−2
6
7
| + (-2,5) өрнегінің мәнін есептеңдер. [4 ]
4. Шеңбердің диаметрі 180 см болса, онда шеңбердің ұзындығы мен
дөңгелектің ауданы неге тең? [3]
А) 282,6 см, 25 434 см2
; В) 565,2 см, 25 434 см2
;
С) 565,6 см, 25 436 см2
; Д) 565,6 см, 25 446 см2
,
5. Егер 1: 50 000 000 масштабы бар картада 5 см жергілікті жерде қанша
километрді береді?
А) 2050 км; В) 2400 км; С) 2500 км; Д) 25 500км.
n = 10;
var
a : array [1..n] of integer;
r : boolean;
i,j : integer;
begin
//Формирование массива пропущено
r := true;
While r do
begin
if a[i] mod 2 =0 then
begin
for j := n-1 downto i + 2 do
a[j] := a[j-1];
a[i+1] := 0;
r := false;
end;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)