Решить в паскале (тема "массивы") задать случайным образом 13 элементов числового массива - числа от 10 до 50. удалить из него: а) 10-ый элемент; б) минимальный элемент решить это всё в одной . жду быстрого решения)

203

310

Посмотреть ответы 2

Ответы на вопрос:

batkia228

Информатика

4,6(31 оценок)

Var a: array[1..2000001] of integer; i,y,x,j,c: integer; begin x: =200001; a[x]: =700; for i: =1 to 13 do begin y: =random(2000001); a[y]: =random(41)+10; if a[x]> a[y] then x: =y; if i=10 thenfor j: =i to 2000000-i-1 do a[j]: =a[j+1]; end; for c: =1 to 1999999 do write(a[c],' '); end.