Разработка и реализация программ с массивами, страница 3

A[4]=(37*1+3) mod 64=6;

X=A[4], J=1. X=A[4]+A[1]*Exp((N-J-1)*Ln(T))=6+19*3=63.

J=2. X=X+A[2]*Exp((N-J-1)*Ln(T))=63+0*1=63.

J=3. X=X+A[3]*Exp((N-J-1)*Ln(T))=63+1*=  .

Результат. Х=.

Задание 4.2. дана последовательность из 10 лог. значений. Если из них хотя бы 1 значение FALSE – то вывести FALSE, иначе TRUE

Блок – схема.

uses crt;

var result:boolean;

    i:integer;

    a:array[1..10]of  integer;

begin

clrscr;

result:=true;

writeln('vvedi 10 zna4eniy  1-true  0-false:');

for i:=1 to 10 do

 begin

 readln(a[i]); if a[i]=0 then result:=false;

 end;

write(result);

readln;

end.

Результат:       1111111011

                                                                            false

4.3) В массиве из n элементов вычислить:

       -произведение отрицательных элементов

       -сумму положительных элементов размещённых до наибольшего элемента

Сменить порядок елементов массива на обратный

uses crt;

var a,b:array[1..100]of real;

    i,n,k:integer;

    max,pr_otr,summa_pol:real;

begin

clrscr;

pr_otr:=1;

summa_pol:=0;

k:=0;

write('vvedi kol-vo elementov massiva: ');

readln(n);

writeln('VVEDI ELEMENTI');

for i:=1 to n do

 begin

 write('A[',i,']=');

 readln(a[i]);

 if a[i]<0 then

  k:=k+1;

 end;

{konec bloka vvoda i pods4eta otr. 4isel}

if k>=2 then

 begin

 for i:=1 to n do

 if a[i]<0 then pr_otr:=pr_otr*a[i];

 writeln('proizvedenie otricatelnih= ',pr_otr:0:2);

 end

 else writeln('otricatelniy element vsego 1 ili ih net');

{konec pods4eta proizvedeniya otr. 4isel}