Задача 2

Листинг программы

program mac;

uses crt;

var b,s:REAL;

I,J,n,d,c:INTEGER;

A:ARRAY[1..100,1..100] OF integer;

k,m:array[1..100] of real;

LABEL XX;

BEGIN

CLRSCR; d:=0;

s:=0; read(n); k[1]:=0; randomize;

for I:=1 to n do begin

for j:=1 to n do begin

a[i,j]:=random(10)-1;

write(a[i,j],' ');

end; writeln; end;

for I:=1 to n do begin

for j:=1 to n do if a[i,j]<0 then k[i]:=k[i]+1;

if k[i]=1 then

begin for j:=1 to n do s:=a[i,j]+s;

d:=d+1; m[d]:=s; c:=c+1;

writeln('na takoi stroke:=',i,'summa elementov',s:3:0);end;

k[i]:=0;s:=0; end;

for d:=1 to c do write(m[d]:3:0);writeln;

for i:=1 to 10 do begin

for d:=1 to c-1 do

if m[d]>m[d+1] then

begin

b:=m[d];

m[d]:=m[d+1];

m[d+1]:=b;

end ;

end;

for d:=1 to c do write(m[d]:3:0,' ');

readkey ; end.

Реализация программы

Заключение

В ходе разработки программы мною было изучены метод сортировки пузырька, математические манипуляции, работа с массивами и с отдельными элемента массива

Список использованной литературы

1)Йенсен К., Вирт Н. Паскаль. Руководство для пользователя и описание языка. — М.: Финансы и статистика, 1982. —

2)Вирт Н. Алгоритмы + структуры данных = программы. — М.: Мир, 1985. —.

3)Грогоно П. Программирование на языке Паскаль. — М.: Мир, 1982. —

4)Перминов О. Н. Язык программирования Паскаль : Справочник. — М.: Радио и связь, 1989. —ISBN 5-256-00311-9

5)Культин Н.Б. Delphi 6. Программирование на Object Pascal. — СПб.: БХВ-Петербург, 2001.— ISBN 5-94157-112-7

6)Моргун А. Н. Программирование на языке Паскаль (Pascal). Основы обработки структур данных. — М.: Диалектика, 2005. — ISBN 5-8459-0935-X

7)Рубенкинг Н.Дж. Турбо Паскаль для Windows: в 2-х томах. Пер. с англ.. — М.: Мир, 1993.