По карте определить расстояние от москвы до минска

по линейке мерь скок миллиметров получится и умножаешь на число, которое в маштабе самое большое

 

    1. начало                                                                                                                 2. нажимаешь сохранить как                                                                                     3. выбираешь  папку в который тебе надо сохранить рисунок                                       4. пишешь название рисунка                                                                                     5. нажимаешь "сохранить"                                                                                           6. конец

На паскале: program program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin         result : = 0;         write('введите значение n (не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   write('введите значение ', i, ' элемента массива: ');                   readln(array1[i]);                 end;                 begin                   writeln('массив, размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');             writeln;                 end;         for i: =1 to n do                 begin                   k : = 0;                   for j: =1 to n do                   if array1[i] = array1[j] then k : = k + 1;                   if k = 1 then result : = result + array1[i];                 end;         writeln('сумма уникальных элементов массива = ', result); end.