Дан одномерный массив целых чисел размерностью…

Question

Дан одномерный массив целых чисел размерностью 20. Определите количество положительных групп в этом массиве. (группа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.)

Answer 1

55

nikop

02 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: