Лёгкость в копировании текста является

Малое кол во клавиш используемых при копировании

1)

program pr;
uses crt;
Var y,x:real;

Begin
 Writeln('vvedite x');
 readln(x);
 y:=(4*x)/(x-1);
 Writeln('y=',y:10:3);
  readln;
end.

 

 

2)

program pr;

Var n,i,a:integer;

Begin
Writeln('введите кол-во цыфр');
readln(n);

for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;

end.

 

 

2) использование массива

 

program pr;
uses crt;
Var n,i:integer;
    a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);

Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');

end.

 

Программа:

const n=5; m=6;

var  

a:array[1..n,1..m] of integer;

i,j,s,min,k:integer;

begin

Randomize;

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

for i:=1 to n do

begin

for j:=1 to m do

 begin

  a[i,j]:=random(100);

  write(a[i,j]:4);

 end;

 writeln;

end;

min:=0; k:=1;

for j:=1 to m do min:=min+a[1,j];

writeln('s1 = ',min);

for i:=2 to n do

begin

s:=0;

for j:=1 to m do s:=s+a[i,j];

writeln('s',i,' = ',s);

if s<min then begin min:=s; k:=i; end;

end;

writeln('min сумма = ',min,' (',k,'-я строка)');

end.

Пример:

Исходный массив:

 24  61  29  35  82   8

 98  58  55   2  11  35

 14  46  59  55  79   8

  4  25   4  48  83  49

 96  27  56  87  91  63

s1 = 239

s2 = 259

s3 = 261

s4 = 213

s5 = 420

min сумма = 213 (4-я строка)