Задание:
Дан массив (от 1 до n) , заданный случайным образом. Добавить на К место элемент равный двум. Нужна прога для Паскаль АВССпасибо!
Решение:
1) элемент с номером K заменяется на 2vara: array [1… 20] of integer; i,n,k: integer; beginreadln (n); for i: =1 to n dobegina[i]: =random (50); write (a[i]: 3); end; writeln; readln (k); a[k]: =2; for i: =1 to n dowrite (a[i]: 3); end.2) элемент вставляется в массив остальные элементы сдвигаются вправоvar a: array [1… 20] of integer; i, n, k: integer; begin readln (n); for i: =1 to n do begin a[i]: =random (50); write (a[i]: 3); end; writeln; readln (k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k]: =2; for i: =1 to n+1 do write (a[i]: 3); end.
Знаете другой ответ?