const. repeat. fori := 1 ton do. fori := n downto1 do. ifr[i] < 0 then begin. ifm > 0 then begin. fori := 1 tom do begin. fori:=m+1 ton do begin. ifr[i]<=0 then begin. fori := 1 tok do begin. ifr[i]> max then begin. fori := nmax+1 tok do begin

⇐ ПредыдущаяСтр 2 из 2

const

lmax = 100;

var

h, a, x, max, l, s: real;

m, nmax, y, n, i, k: integer;

r: array[1..lmax] ofreal;

begin

writeln('Лабороторная работа номер 1');

writeln('задание 1 ');

repeat

writeln('введите длину масива');

readln(n);

until((n > 0) and(n <= lmax));

writeln('введите x,h,a');

readln(x, h, a);

writeln('Массив r из ', n, ' элементов');

fori := 1 ton do

begin

r[i] := 1.25 * sin(3 * a * x - i * h);

writeln(r[i])

end;

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

m := 0;

fori := n downto1 do

begin

ifr[i] < 0 then begin

m := i

end;

k := 0;

ifm > 0 then begin

writeln('индекс первого отрицательного элемента:', m);

fori := 1 tom do begin

k := k+1;

r[k] := r[i];

end;

fori:=m+1 ton do begin

ifr[i]<=0 then begin

k:=k+1;

r[k]:=r[i];

end;

writeln('измененный массив:');

fori:=1 tok dowriteln(r[i])

end

else

writeln('массив не изменен');

writeln('задание 3');

max := MinReal;

fori := 1 tok do begin

ifr[i]> max then begin

max := r[i];

nmax := i;

end;

y:=0;

l:=0;

fori := nmax+1 tok do begin

y :=y+1;

l := l + r[i];

end;

ify=0 then

write('нет среднего арифметического')

else begin

s := l / y;

write('среднее арифметическое: ', s);

end;

end.

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

№	Исходные данные	Результат
	n:5, x:1, h:3, a:4 n:3, x:1, h:4, a:5 n:3, x:0, h:1, a:2 n:3, x:2, h:1, a:0	0.515148106552196 -0.349269372748657 0.176400010074834 -0.176400010074834-массив r измененный массив: 0.515148106552196 -0.349269372748657 -0.176400010074834 S:= -0.17522312760783 Массив r из 3 элементов -1.24998775818838 0.821233248398486 0.176400010074834 измененный массив: -1.24998775818838 нет среднего арифметического Массив r из 3 элементов -1.05183873100987 -1.1366217835321 -0.176400010074834 массив не изменен нет среднего арифметического Массив r из 3 элементов 1.23825919461859 0.525208796033301 -0.670716147500544 массив не изменен среднее арифметическое: - 0.0727536757336212

⇐ Предыдущая 12