Алгоритмы преобразования одномерных массивов, страница 8

begin

setfontstyle(fsBold);                              

Writeln ('Программа вычисляет сумму элементов заданного массива');

setfontstyle(fsNormal);                            

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,'     ');

For i:=1 to n do begin write (i, ' элемент = '); 

Readln (a[i]); writeln(a[i],' ');

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (a[i]:4);

s:=0;

For i:=1 to n do

s:=s+a[i];

writeln;

setfontstyle(fsBold);

writeln('Сумма элементов = ',s);

end.

Приложение 2

Program B;

uses GraphAbc;

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

s1,i,n: integer;

begin

setfontstyle(fsBold);                              

Writeln ('Программа вычисляет произведение элементов заданного массива');

setfontstyle(fsNormal);                            

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,'     ');

For i:=1 to n do begin write (i, ' элемент = ');  

Readln (a[i]); writeln(a[i],' '); 

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (a[i]:4);

s1:=1;

For i:=1 to n do

s1:=s1*a[i];

writeln;

setfontstyle(fsBold);

writeln('Произведение элементов = ',s1);

end.

Приложение 3

Program A;

uses GraphAbc;

Var mas:array [1..100] of integer;

max,i,n:integer;

begin

setfontstyle(fsBold);                              

Writeln ('Программа находит максимальный элемент заданного массива');

setfontstyle(fsNormal);                            

writeln;

Writeln (' Введи количество элементов: ');

Readln (n);  writeln(n,'     '); 

For i:=1 to n do begin write (i, ' элемент = '); 

Readln (mas[i]); writeln(mas[i],' '); 

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (mas[i]:4);

Max:=mas[i];

For i:=2 to n do

if mas[i]>max then max:=mas[i];

Writeln;

setfontstyle(fsBold);

writeln ('Из них максимальным является элемент: ',max);

Readln

end.

Приложение 4

Program D; 

uses GraphAbc;                                     

var b: array[1..100] of integer;                   

i,j,k,n,r: integer;                            

begin

setfontstyle(fsBold);                              

Writeln ('Программа показывает работу метода сортировки "Пузырёк" и сортирует таким образом за -  данный  с клавиатуры массив по возрастанию номинала элементов');

setfontstyle(fsNormal);                            

writeln;

Writeln (' Введи количество элементов: ');        

Readln (n); writeln(n,'     ');                    

For i:=1 to n do begin write (i, ' элемент = '); 

Readln (b[i]); writeln(b[i],' ');                 

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');                

for i:=1 to n do

write (b[i]:4);                                   

writeln;

writeln ('Выберите сортировку: 1 - по возрастанию; 2 - по убыванию');

readln(r);

if r=1 then                                        

for i:=1 to n-1 do                              

for j:=i+1 to n do                            

if b[i]>b[j] then

begin

k:=b[i];                               

b[i]:=b[j];                         

b[j]:=k;

end;

if r=2 then 

for i:=1 to n-1 do                                  

for j:=i+1 to n do                                 

if b[i]<b[j] then                              

begin

k:=b[i];                                   

b[i]:=b[j];                               

b[j]:=k;

end;

writeln;

setfontstyle(fsBold);

writeln('Массив после сортировки пузырьковым методом: ');    

for i:=1 to n do

write(b[i],'       ');                                     

end.