перевести числа из римской системы в арабскую CCC, LIX, XCV, LX, СXV, LXI, XVI, XIV, ССX, XXIX, XXII, LXXXIX, XLIV, DXL, LXXII, перевести в римскую систему числа записанные арабскими цифрами: 9, 15, 29, 49, 427, 41, 58, 67, 99, 1002, 600, 103, 124, 593, 1541

Ауф атындағы қазақ ұлттық медицина университеті емдеу факультеті факультет жайлы деканның орынбасары болып тағайындалады және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық заңмен белгіленеді және конституциялық және саяси бағыты негізінде ел ә стратегиясы қалыптасқан мемлекеттің жаңа даму кезеңіне жол

program z1;

var a: array [1..15] of real;

i, k, b: integer;

proizv: real;

begin

proizv:= 1;

a[1]:= 0.01;

a[2]:= -3;

a[3]:= 0;

a[4]:= 1.25;

a[5]:= -371;

a[6]:= 0.5;

a[7]:= -0.1;

a[8]:= 1.2;

a[9]:= -5;

a[10]:= -172.3;

a[11]:= 19783;

a[12]:= -2.7;

a[13]:= 43.51;

a[14]:= 0;

a[15]:= -0.02;

b:= -3;

k:= 0;

for i:=1 to 15 do

begin

if (a[i] <> 0) and (a[i] > b) then

begin

proizv:= proizv * a[i];

k:= k+1;

end;

end;

writeln('Количество чисел, подходящих условию: ', k);

writeln('Произведение чисел, подходящих условию: ', proizv);

end.

Объяснение:

На фото нарисована блок-схема, она немного криво сфоткана, надеюсь разберёшься. Если есть вопросы - задавай :)