Найти количество двузначных элементов массива, сумма цифр которых кратна 5, а затем заменить каждый такой элемент на количество таких элементов. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент вводится с новой строчки.
Надо заполнить пропуски.(где многоточие)
const N=30
var a array [1..N]
of longint;
i,j,k longint;
begin
for i:= 1 to N do
readln(a[i]);
…...i:=1 to … do
if (a[i]>9) and ……… and ((a[i] mod 10+
…...) mod =0)
then j:=;
for i:=1 to n do
(a[i]>9) and ……… and ((a[i] mod 10+
…...) mod =0)
then a[i]=;
for i:=1 to n do
;
end
uses
system,system.Windows.Forms;
Var
dat:DateTime;
myForm:Form;
myButton:Button;
myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs);
begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
dat:=datetime.Now;
myTextBox.Text:=dat.ToString;
end;
begin
myForm:=new Form; //создание объекта - формы
myform.Left:=500;
myform.top:=500;
myform.AutoSize:=true;
myform.Width:=300;
myform.Height:=100;
myTextBox:=new TextBox; //создание объекта - текстового поля
myTextBox.Left:=80;
myTextBox.Top:=40;
myTextBox.Enabled:=true;
myTextBox.Width:=105;
myTextBox.Height:=100;
myTextBox.MaxLength:=16;
myTextBox.ReadOnly:=false;
myTextBox.Visible:=true;
myButton:=new Button; //создание объекта - кнопки
myButton.Text:='Now';
myButton.Left:=80;
myButton.top:=80;
myButton.AutoSize:=true;
myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
myForm.Controls.Add(myTextBox);
myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
Application.Run(myForm);
end.