Есть ответ 👍

Составьте программу с использованием команды ветвления для решения одной из следующих (выбор осуществляется преподавателем):

1.1. по номеру месяца определить количество дней в нем (в невисокосном году).

1.2. по номеру месяца определить время года.

1.3. по номеру дня недели определить количество занятий.

1.4. по числу лет определить является ли человек школьником, пенсионером и т.п.

1.5. по номеру класса определить в начальной школе, среднем звене или в старших классах обучается ученик.

1.6. по номеру группы определить на каком курсе учится студент.

1.7. по числу текущего месяца определить день недели.

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

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


      var a,b,sum: integer; arr : array [0..7] of integer; begin sum: =0; write('введите элементы массива : '); for a: =0 to 7 do begin read(b); arr[a]: =b; end; for a: =0 to 7 do begin if arr[a]< 0 then sum: =sum+arr[a]; end; writeln('сумма отрицательных элементов массива = ',sum); end.

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