Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а. 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.
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.
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.
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.