Конспект Компьютерные вирусы и антивирусные программы ​

Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.

program z1;

var a:array [1..21] of integer;

i,m: integer;

begin;

write('0.');

for i:=1 to 21 do

begin

a[i]:=random(66)-13;

write(a[i]:5)

end;

writeln;

write('1.');

for i:=1 to 21 do

begin

if i mod 2 = 0 then a[i]:=-3*a[i];

write(a[i]:5)

end;

writeln;

write('2.');

for i:=1 to 21 do

begin

if a[i] < 10 then a[i]:=-a[i];

write(a[i]:5)

end;

writeln;

write('3.');

for i:=1 to 21 do

begin

if abs(a[i]) > 40 then a[i]:=a[i]-15;

write(a[i]:5)

end;

writeln;

m:=1;

for i:=1 to 21 do if a[m] < a[i] then m:=i;

a[m]:=m*m;

write('4.');

for i:=1 to 21 do write(a[i]:5)

end.

Объяснение:

После каждого преобразования выводится получившийся массив