Question

Napisz program obliczający maksymalną sumę liczb w ciągu liczbowym złożonym z liczb dodatnich i ujemnych. Ciąg wczytywany z klawiatury do tablicy n-elementowej. Oblicz wartość wielomianu o wpółczynnikach złożonych z tych liczb dla zadanego z klawiatury x. Obowiązuje programowanie proceduralne. Jezyk Pascal.

Answer 1

Do znalezienia maksymalnej sumy ciagu wystarczy dodawac tylko liczby dodatnie. W przypadku, gdy nie ma tam tam zadnej liczby dodatniej, musimy po prostu znalezc maksymalna wartosc sporod liczb ujemnych.

 

Do znalezienia wartosci wielomianu mozna zastosowac tzw. schemat Hornera.

 

program suma_ciagu;
var
ciag:array of integer;
n, suma, i, x, y, max: integer;

begin
suma := 0;
writeln('Podaj n: ');
readln(n);

setlength(ciag, n);
writeln('Podaj ', n, ' liczb bedacymi kolejnymi elementami ciagu');
for i:=1 to n do readln(ciag[i]);
max := ciag[1];
for i:=1 to n do
begin
if ciag[i] > 0
then suma := suma + ciag[i];
if ciag[i] > max
then max := ciag[i];
end;
if suma > 0 then
writeln('Maksymalna suma liczb wynosi: ', suma)
else
writeln('Maksymalna suma liczb wynosi: ', max);
writeln('Podaj x: ');
readln(x);
y := ciag[1];
for i:= 2 to n do
y := x*y+ciag[i];
writeln('Wartosc tego wielomianu dla x = ', x, ' wynosi: ', y);
readln;
end.