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

var

r: array[1..100] of real;

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

d: array[1..100] of real;

n , i ,j,k, f , x: integer;

begin

writeln('Лабараторная работа 4');

writeln('Задание 2');

writeln('введите размер массива:');

repeat

read(n);

if n < 0 then

writeln('размер массива не должно быт отрицательным');

until n > 0;

writeln('Введите элементы массива:');

for i := 1 to n do

begin

repeat

read(r[i]);

if (r[i] < 0) or (r[i] <> round(r[i])) or (r[i] <= 9) then

writeln('Элементы массива должны быть целыми положительными и больше 9');

until (r[i] > 0) and (r[i] = round(r[i])) and (r[i] > 9);

a[i] := round(r[i]);

end;

x := 0;

for i := 1 to n do

begin

f := a[i];

while f div 10 > 0 do

begin

f := f div 10;

x := x + 1;

end;

d[i] := (a[i] mod 10) * power(10,x) + a[i] div 10;

x := 0;

end;

for i := 1 to n do

write(d[i] , ' ');

end.

Описание алгоритма на псевдокоде 2

Алг «Лабораторная работа 4» Нач цикл  ввод (n )

если n < то

вывод(<<размер матрицы не должно быт отрицательным>>)

все

до n > 0

кц

ввод(a[1:n])

x := 0

цикл от i := 1 до n

f := a[i];

цикл -пока f div 10 > 0

f := f div 10;

x := x + 1;

кц

d[i] := (a[i] mod 10) * power(10,x) + a[i] div 10;

x := 0;

кц

вывод(<<d[i]>>)

кон

Распечатка тестов к программе и результатов 1

№	Исходные данные	Результаты
1	n = 4; m = 5; 2 10 8 1 6 4 5 15 17 6 8 9 10 11 12 8 4 15 3 7 K = 7; A = {0,2,3,4,5,6,7}	2 0 8 0 6 4 5 15 17 6 0 9 10 11 0 8 4 15 3 7 С= {1,10,8,12}
2	n = 4; m = 5; 2 10 8 3 6 4 5 15 17 6 6 9 10 11 12 8 4 15 3 7 K = 7; A = {0,2,3,4,5,6,7}	Нет обнуления

Распечатка тестов к программе и результатов2

№	Исходные данные	Результаты
1	n = 4; A = {25,698,123,4569}	52,869,312,9456