Предположим, что последовательность же задана, то есть вводить ее мы не будем. последовательность представляет собой массив чисел а. n: =1; k: =0; for i: =1 to 100 do if (a[i]< 0) then k: =k+1; проверяем наличие отрицательных if (k=0) then writeln("отрицательных нет.") else begin for i: =1 to 100 do if (a[i]< 0) then n: =a[i]; находим хотя бы один отрицательный for i: =1 to 100 do if ((a[i]< 0) and (a[i]> n) then n: =a[i]; находим наибольший отрицательный writeln("наибольшее из отрицательных чисел данной последовательности - ",n); end; end.
konstantinslivkov
21.05.2022
1. система программирования — это система для разработки новых программ на конкретном языке программирования.2. системные программы выполняются вместе с прикладными и служат для ресурсами компьютера — центральным процессором, памятью, вводом-выводом. это программы общего пользования, которые предназначены для всех пользователей компьютера. системное программное обеспечение разрабатывается так, чтобы компьютер мог эффективно выполнять прикладные программы.3.программа на паскале program summa; type mas = array [1 .. 100] of real; var a : mas; i, n: integer; s : real; begin write('n = '); readln(n); for i : = 1 to n do begin write('a[', i, '] = '); readln(a[i]); end; s : = 0; for i : = 1 to n do s : = s + a[i]; writeln('s = ', s: 8: 2); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны r1 и r2 . найти площадь кольца. (площадь круга: s= pr2 написать программу, заранее ))