Регистрация
cabans354
19.03.2022 07:56
Информатика
Есть ответ 👍

Порядок выполнения работы:
Запустите программу Turbo Pascal.
Выполните задания:
1. Ввести одномерный массив на 10 элементов, состоящий из
положительных и отрицательных чисел.
2. Заменить отрицательные элементы на противоположные по знаку.
3. Вывести полученный массив на экран.
4. Удалите из массива третий элемент.
5. Вывести полученный массив на экран.
6. Найдите сумму всех элементов массива.

Зачетное задание
Определить сколько раз встречается самое малое число в массиве А(1: 30)?​

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

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

tim2003np0acpp
tim2003np0acpp
4,4(93 оценок)
Program kek; var r,q,z,s,n: integer; beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем'); readln (n); z: =0; q: =1; while n< > 0 dobeginif n=z then q: =q+1        else z: =n; readln (n);       end; write ('кол-во одинаковых, идущих подряд чисел равно   ', q); end.      

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