Написать программу в паскаль напечатать таблицу перевода 1, 2, …, 20 долларов сша в рубли по текущему курсу (значение курса вводится с клавиатуры

Var a: array[1..20] of real; b: real; c: integer; begin writeln('введите курс доллара(в рублях)'); readln(b); for c: =1 to 20 do begin a[c]: =c*b; writeln(c,'д = ',a[c],'руб'); end; end.

Pascalabc.net 3.4 begin   var m: =readinteger('введите натуральное число не более 3999: ');   if not m.between(1,3999) then writeln('недопустимое значение')   else   begin       write(m,' = ');       var ar: array of string: =               ('m','cm','d','cd','c','xc','l','xl','x','ix','v','iv','i');       var aa: =arr(1000,900,500,400,100,90,50,40,10,9,5,4,1);       var n: =0;       var s: string: ='';       while m> 0 do       begin           while aa[n]< =m do           begin               s+=ar[n];               m-=aa[n];           end;           n+=1       end;       writeln(s)   end end.

так как изначально в указано : "на любом известном вам языке программирования" - вот, держи на с.

#include < stdio.h>

#include < stdlib.h>

#include < locale.h>

#define n 100

int main()

{

setlocale(lc_all, "rus");

int i, m;

float b[n], min;

printf(" введите количество элементов массива (не больше 100) => ");

scanf("%d", & m);

if (m < 100)

{

for (i = 0; i < m; i++)

{

printf("введите [%d] элемент массива => ", i);

scanf("%f", & b[i]);

}

for (i = 0; i < m; i++)

printf("%1.0f ", b[i]);

min=b[0];

for (int i=1; i< m; i++)

{

if (b[i]< min)

min=b[i];

}

printf ("\n\tминимальное значение в массиве => %7.2f", min);

}

else

printf("ошибка. заданное число элементов массива слишком большое.");

return 0;

}