Практическая работа по теме "Поиск ошибок в программах с одномерными массивами"

№ 1 Дан линейный массив размерности п действительных чисел. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.

program line 1;

useс crt;

const n1=100;

var a:array[1..n] of real;

i, n,kpol, kotr, kzero: integer;

begin

writeln ('введите размерность вашего массива');

readln(n);

randoize;

textColor(4);

for i:= to n do

begin

a[i]:=randon(100)-50;

if (a[i]or (a[i]30) a[i]:=0;

write(a[i],' ');

end;

writeln;

textColor(2);

kpol:=0;

kotr:=0;

kzero:=0;

for i:=1 to n do

if a[i]000 then kpol:=kpol+1 else

if a[i]then kotr:=kotr+1 else kzero:=kzero+1;

writeln

textColor(3);

writeln('количество положительных элементов =', kol);

textColor(4);

writeln('количество отрицательных элементов =', kotr);

textColor(5);

writeln('количество нулевых элементов =', kzero);

end

№ 2 Дан линейный массив размерности 20 действительных чисел. Выдать на экране новый массив, сформированный из положительных элементов первоначального массива.

program masiv1;

uses crt;

var i;integer;

m:array [0..100] of real;

begin

randomize;

textColor(4);

writeln ('ваш массив)';

textColor(3);

for i:=1 to 20

begin;

m[i]:=random(20)-10;

write([i],' )';

end;

writelne;

textColor(5);

writeln ('ваш новый массив');

textColor(10);

for i:=1 to do

begin

if m[i]0 write (m[i],' ');

end.

№ 3 Дана последовательность п чисел. Указать наименьшую длину числовой оси, содержащую все эти числа.

program masiv_dlina;

uses crt;

var i,n:real;

m:array [0..100] of real;

dlina, min, max:real;

begin

writeln ('введите размерность вашего массива')

readln(n);

randomize;

textColor(1);

writeln('ваш массив');

for i:=1 n do

m[i]:=random(100)-50;

write(m[i]:6:1,' ');

end;

writeln;

min:=m[1];

max:=m[1];

for i:=1 to n do;

if m[i]max then max:=m[i] else if m[i]then min:=m[i];

dlina:=abs(min-max)

writeln;

textColor(5);

writeln('наименьший элемент =',min);

writeln('наибольший элемент =',max);

writeln;

textColor(3);

writeln('длина отрезка =',dlina);

№ 1 Дан линейный массив размерности п действительных чисел. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.

program line1;

uses crt;

const n1=100;

var a:array[1..n1] of real;

i, n,kpol, kotr, kzero: integer;

begin

writeln ('введите размерность вашего массива');

readln(n);

randomize;

textColor(4);

for i:=1 to n do

begin

a[i]:=random(100)-50;

if (a[i]or (a[i]30) then a[i]:=0;

write(a[i],' ');

end;

writeln;

textColor(2);

kpol:=0;

kotr:=0;

kzero:=0;

for i:=1 to n do

if a[i]0 then kpol:=kpol+1 else

if a[i]then kotr:=kotr+1 else kzero:=kzero+1;

writeln;

textColor(3);

writeln('количество положительных элементов =', kpol);

textColor(4);

writeln('количество отрицательных элементов =', kotr);

textColor(5);

writeln('количество нулевых элементов =', kzero);

end.

№ 2 Дан линейный массив размерности 20 действительных чисел. Выдать на экране новый массив, сформированный из положительных элементов первоначального массива.

program masiv1;

uses crt;

var i:integer;

m:array [0..100] of real;

begin

randomize;

textColor(4);

writeln ('ваш массив');

textColor(3);

for i:=1 to 20 do

begin

m[i]:=random(20)-10;

write(m[i],' ');

end;

writeln;

textColor(5);

writeln ('ваш новый массив');

textColor(10);

for i:=1 to 20 do

begin

if m[i]0 then write (m[i],' ');

end;

end.

№ 3 Дана последовательность п чисел. Указать наименьшую длину числовой оси, содержащую все эти числа.

program masiv_dlina;

uses crt;

var i,n:integer;

m:array [0..100] of real;

dlina, min, max:real;

begin

writeln ('введите размерность вашего массива');

readln(n);

randomize;

textColor(1);

writeln('ваш массив');

for i:=1 to n do

begin

m[i]:=random(100)-50;

write(m[i]:6:1,' ');

end;

writeln;

min:=m[1];

max:=m[1];

for i:=1 to n do

if m[i]max then max:=m[i] else if m[i]then min:=m[i];

dlina:=abs(min-max);

writeln;

textColor(5);

writeln('наименьший элемент =',min);

writeln('наибольший элемент =',max);

writeln;

textColor(3);

writeln('длина отрезка =',dlina);

end.