Цитата:
Сообщение от Margosham-k
ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать
массив, увеличив каждый его элемент на исходное значение элемента
Aк-ого."
|
Ну тогда-то что...
Код:
VAR
N,K,D,i:Byte;
A:Array[1..255] of Word;
BEGIN
Randomize;
Write('N = ');
Readln(N);
Write('K (<=N) = ');
Readln(K);
For i:=1 to N do
begin
A[i]:=Random(100);
Write(A[i]:4);
end;
writeln;
D:=A[K];
For i:=1 to N do
begin
A[i]:=A[i]+D;
Write(A[i]:4);
end;
Readln;
END.