Регистрация
frankovskaaalin
08.03.2023 03:29
Информатика
Есть ответ 👍

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

145
418
Посмотреть ответы 2

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

ivandawidov
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.
Кирилл41018
Кирилл41018
4,4(5 оценок)

ну ты можешь делать видеозапись с телефона(нажав на программу "камера") или снимать с камеры

Объяснение:

Популярно: Информатика