yourdomain.com

весь день просидел вот что получилось: Const n=15; Type mas=array[1..n] of integer; var a:mas; k,i,max:integer; Procedure Print(z:mas; m: integer); var i:integer; Begin for i:=1 to m do write(z[i],' '); writeln; end; Procedure Delet(pmax:integer; var m: integer); var i,j: integer; Begin m:=n; for i:...

я сделал как вы написали.
Теперь все элементы равные макс удаляет.но вместе c этими элементыми еще элемент или элементы не макс.но не всегда иногда все нормально работает.
и если макс число стоит 1вым он его не удаляет.

Спасибо.
Сейчас буду разбираться

1.да
2.мне обезательно нужно чтоб была процедура Print
3.удаляет Катый элемент ,сдвигает массив и формирует новый

да, тут ошибка. надо менять местами. сначало z[i]:=z[i+1]; a потом z[n]:=0; Procedure Delet(k:integer;var z:mas); var i:integer; Begin for i:=k to n-1 do z[i]:=z[i+1]; z[n]:=0; end. вот программа после преобразований Program massiv; Const n=15; Type mas=array[1..n] of integer; var a:mas; k,i,max:int...

если мы поменяем на a[i]:=-99 то будут все числа -99 a a[i]:=random(-99)-не может быть. если как раз поменяем на a[i]:=random(20)-10 числа будут в интервале от -10 до 10. например: макс число равно 9.a оно повторяеться в массиве 2 раза.то нужно удалить обе 9.a программа выводит только одну.я не знаю...

T.e. надо заменить например на: a[i]:=random(20)-10;?
У меня теперь такая проблема программа находит максимальное число но если их несколько то выводит только одно.

Помогите пожалуйста c задачей на Паскаль. Дан одномерный массив удалить из массива все максимальные элементы. я не знаю как сделать чтобы выводила все элементы.вот что получилось: Program massiv; Const n=15; Type mas =array[1..n] of integer; var a:mas; k,i,max:integer; Procedure Print(z:mas); var i:...

Натуральные числа , таковы, что НОД (, ) + HOK (, ) = + . Помогите, пожалуйста, доказать, что одно из этих чисел является делителем другого.

1023475 1023465 Откуда вообще появилось всё это выражение ( o котором едёт речь)? Ian придумал. Это еще очень даже нормально. A то как бывает. Доказывается теорема. Начинается доказательство, да так, что и не поймёшь при чём оно вообще здесь. A потом вдруг через 30 минут разговоров всплывает нужное...