Здравствуйте, нужна по лабораторной. Условие задания прилагаю. Нужно составить блок схему и потом код в программе набрать вашей

125

440

Посмотреть ответы 1

Ответы на вопрос:

kostina68

Информатика

4,6(63 оценок)

// pascalabc.net 3.0, сборка 1128 procedure convert(v: array of integer); begin for var i: =0 to v.length-1 do if v[i]> 9 then v[i]: =9 else if v[i]< 5 then v[i]: =5 end; procedure develop(c: char; k: integer); begin writelnformat('*** массив {0} ***',c); var a: =arrrandom(k,-5,15); write('исходный : '); a.println(','); convert(a); write('результат: '); a.println(','); end; begin var m: =readinteger('количество элементов в массиве a: '); var n: =readinteger('количество элементов в массиве b: '); develop('a',m); develop('b',n) end. тестовое решение: количество элементов в массиве a: 15 количество элементов в массиве b: 10 *** массив a *** исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5 результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5 *** массив b *** исходный : 5,12,12,4,7,9,7,-3,-1,-2 результат: 5,9,9,5,7,9,7,5,5,5