17 , сделать на паскале нужно заплатить s рублей, есть купюры 100, 50, 10, 2, 1 рубль. сколько купюр каждого достоинства нужно отдать покупателю, если он будет платить с самых крупных.

Var s,k1,k2,k3,k4,k5:integer;
begin
write('s='); readln(s);
k1:=s div 100;
k2:=s mod 100 div 50;
k3:=s mod 50 div 10;
k4:=s mod 10 div 2;
k5:=s mod 2;
writeln('100 - ',k1,',  50 - ',k2,',  10 - ',k3,',  2 - ',k4,',  1 - ',k5);
end.

Пример:
s=463
100 - 4,  50 - 1,  10 - 1,  2 - 1,  1 - 1

Плюсы векторных изображений:

- гибкая масштабируемость, можно изменять размеры изображений без потери его визуальных качеств;

- файл с векторным изображением имеет гораздо меньший размер по сравнению с растровым изображением;

- рисунок имеет высокое качество при печати, особенно это хорошо заметно на хороших принтерах при качественной печати;

- простой экспорт векторного рисунка в растровый.

Объяснение:

- отсутствие реалистичности у векторных рисунков. Реалистичность достигается путем применения различных сложных цветовых схем;

- невозможность использования эффектов, которые можно применять в растровой графике;

- практически полная невозможность экспорта растрового рисунка в векторный;

Турбо Паскаля нет, вставьте первым оператором Uses CRT

const
  n = 20;

var
  x: array[1..n] of real;
  i: integer;
  sp, sn: real;

begin
  Randomize;
  Write('Элементы массива: ');
  sp := 0; sn := 0;
  for i := 1 to n do
  begin
    x[i] := (Random(101) - 50) / 1.33;
    Write(x[i]:0:5, ' ');
    if x[i] > 0 then sp := sp + x[i]
    else if x[i] < 0 then sn := sn + x[i]{нули тоже сюда, они не мешают}
  end;
  Writeln(#13#10, 'Сумма положительных=', sp:0:5, ', отрицательных=', sn:0:5)
end.

Тестовое решение:
Элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504
Сумма положительных=239.84962, отрицательных=-97.74436