Блок-схема

Текст программы:

Program zadacsha5v1;

uses crt;

Const n = 10;

type

mas = array [1..n] of integer;

Var

i: byte;

A, b: mas;

begin

writeln ('исходный массив’);

Randomize; {генератор базы случайных чисел}

For i:= 1 to n do

begin

a[i]:= Random (50) - 25; {случайное число в диапазоне от -25 до 24}

write (a[i]: 4); {в 4-х позициях с учетом знака}

end;

writeln;

writeln;

textcolor(5);

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

textcolor(3);

for i:= 1 to n do

begin

if (a[i]>=-5) and (a[i]<=15) then

b[i]:= 0

else

b[i]:= a[i];

write(b[i]:4);

end;

writeln;writeln;writeln;

textcolor (green);

Writeln('Разработал Иванов И.И..':50);

Readln;

End.

Протокол выполнения программы