1.через пробел запишите числа, которые будут в списке a=[i for i in range (6,18) if % 2==0]
2. Задан одномерный массив А(5). Найти произведение элементов меньших 10

219

227

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

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

ivandawidov

Информатика

4,8(1 оценок)

Const n=20; var m: array[1..n]of real; i, group: byte; fl: boolean; begin for i : = 1 to 20 do begin m[i] : = random(20) - 10; writeln('[', i, '] => ', m[i]); end; group: =0; fl: =false; for i: =1 to n-1 do if (m[i]> 0) and (m[i+1]> 0) then fl: =true else if fl and (m[i+1]< =0) then begin inc(group); fl: =false end; if (fl) then inc(group); writeln(group); end.