Комментарии: Решаем задачи Абрамян на Паскале. Array65

Автор: Василий

Василий — Tue, 01 Dec 2020 11:50:06 +0000

var
a: array[1..100] of integer;
N, K, i, Ak: integer;
begin
write(‘Введите размер массива чисел (<100): ');
readln(N);
for i:=1 to N do A[i]:=random(100);
writeln('Получен случайный массив чисел:');
for i:=1 to N do write(A[i]:5);
writeln;
write('Укажите любой номер элемента массива (<=', N, '): ');
readln(K);
Ak := A[k];
for i := 1 to N do A[i] := A[i] + Ak;
writeln('Получен новый массив чисел:');
for i:=1 to N do write(A[i]:5);
end.

Автор: Anton

Anton — Fri, 18 Mar 2016 16:35:06 +0000

я бы не стал это использовать в жизни… i*(real/i)<>real в общем в самый неожиданный момент в real появится куча 9 после запятой или какая нибудь 0.0000000000000001 в зависимости от компилятора… и в общем хорошего мало…
Предлагаю так:

var
  n,k,i:integer;    
  a:array [1..10]of real;
begin  
  readln(n);      
  for i:=1 to n do readln(a[i]);
  read(k);
  for i:=1 to n do if i<>k then a[i]:=a[i]+a[k];
  a[k]:=2*a[k];
  for i:=1 to n do writeln(a[i]);
end.

var

n,k,i:integer;

a:array [1..10]of real;

begin

readln(n);

for i:=1 to n do readln(a[i]);

read(k);

for i:=1 to n do if i<>k then a[i]:=a[i]+a[k];

a[k]:=2*a[k];

for i:=1 to n do writeln(a[i]);

end.

Автор: olegst1975

olegst1975 — Fri, 18 Mar 2016 15:13:12 +0000

без доп переменной

[crayon-6999197ca0e6c881049214 inline="true" ]
var
  n,k,i:integer;    
  a:array [1..10]of real;
begin  
  readln(n);      
  for i:=1 to n do readln(a[i]);
  read(k);
  for i:=1 to n do if i<=k then a[i]:=a[i]+a[k] else a[i]:=a[i]+a[k]/2;
  for i:=1 to n do writeln(a[i]);
end.

[crayon-6999197ca0e6c881049214 inline="true" ]

var