Дан массив( а) из n элементов , нужно удалить 1ый встретившиеся нулевой элемент из массива ( написать программу)

193

283

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

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

noname1372321

Информатика

4,8(18 оценок)

Const n=13; var a: array[1..n] of integer; i,k,t: integer; begin randomize; writeln('исходный массив'); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; { начало собственно программы } i: =1; k: =0; while (i< =n) and (k=0) do begin if a[i]=0 then k: =i; i: =i+1 end; if k> 0 then begin for i: =k to n-1 do a[i]: =a[i+1]; writeln('массив-результат'); for i: =1 to n-1 do write(a[i],' '); writeln end else writeln('в массиве нет нулевых элементов') end. контрольное решение исходный массив 6 -6 10 -9 6 9 0 10 6 0 -10 -3 6 массив-результат 6 -6 10 -9 6 9 10 6 0 -10 -3 6