10 предложений про электронную карту

1. Когда они принимались работать всерьёз, там, на экранах и электронных картах противника начинали происходить чудеса.

2. Универсальная электронная карта (УЭК) — совсем новый продукт на российском рынке.

3. Удобнее всего использовать электронные карты на смартфоне, потому что хороших бумажных карт по стране нет.

4. Его склонились над электронной картой, сидели возле пульта, нажимая на кнопки и рычажки — всё как на картинке из детского учебника.

5. Карты моментального выпуска Instant Issue — электронные карты без персонализации фамилии владельца на лицевой стороне карты.

6. Обладают всеми функциональными возможностями электронной карты и преимуществом моментальной выдачи карты клиенту при его обращении в банк.

7. MasterCard Electronic — кредитные электронные карты начального уровня.

8. Подсистемы выдали на отдельный экран гибридную модель местности, как выглядела она при составлении электронных карт.

9. Индикатор, электронная карта с навигатором, устройство связи, мини-компьютер, доступ к кредиткам и даже плеер.

10. Прогресс не стоит на месте, теперь всюду находятся видеокамеры слежения, следует обзавестись электронными картами для свободного движения по территории.

Uses graphABC;procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения 
begin 
clearwindow; 
 samolet(x); 
sleep(10); 
redraw end;end.

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.