Программа написана совершенно правильно. Единственное, что могу предположить - это несоответствие нумерации массива у человека и компьютера. Люди привыкли нумеровать от единицы, а значит в массиве из пяти элементов три с нечетными номерами и два с четными. В программах нумерация массива обычно от нуля, т.е. в массиве из пяти элементов три четных и два нечетных. С точки зрения компьютера программа выдает верный результат. Для получения результата с точки зрения человека нужно строку
if ((A[i] > 0) && ( i%2 == 0))
заменить на
if ((A[i] > 0) && ( i%2 == 1))
{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
uses
System.Windows.Forms,
System.Drawing;
var
Form1, Form2: Form;
procedure CloseClick(sender: object; args: System.EventArgs);
begin
Form2.Close;
end;
procedure bClick(sender: object; args: System.EventArgs);
begin
Form2 := new Form;
var but := new Button;
but.Location := new System.Drawing.Point(15, 15);
but.AutoSize := true;
but.Text := 'Закрыть';
but.Click += CloseClick;
Form2.Controls.Add(but);
var tb := new TextBox;
tb.Multiline := True;
tb.Height := 200;
tb.ReadOnly := true;
tb.Dock := DockStyle.Bottom;
tb.ScrollBars := ScrollBars.Both;
Form2.Controls.Add(tb);
Form2.ShowDialog(Form1);
end;
begin
Form1 := new Form;
var but := new Button;
but.Location := new System.Drawing.Point(110, 120);
but.AutoSize := true;
but.Text := 'Открыть еще форму';
but.Click += bClick;
Form1.Controls.Add(but);
Application.Run(Form1);
end.
Могу вам предложить очень полезный сайт с мануалами и справочниками HTML, CSS, XHTML.
Ссылка..
Наверняка таких ресурсов много, стоит только ПоГуглить, но мне пока хватает этого, периодически туда заглядываю, чтобы что-то уточнить и вспомнить.
Функция может возвращать только 1 значение, но вы можете возвращать данные в виде массива или в виде структуры данных, так же данные можно обернуть в JSON объект и вернуть JSON через return и уже потом его распарсить как вам угодно. Используя JSON объект в качестве возвращаемого объекта, вы в принципе можете вернуть огромное количество данных разного типа. Например, можно вернуть несколько массивов с несколькими уровнями вложенности.
Я могу посоветовать только фирмы ноутбуков. Лучшими фирмами являются Acer, Dell, Asus. И покупай не менее 4 ядер или 2 ядра с хорошей оперативкой. И не покупай ноутбук не менее 30 тысяч рублей. Если хочешь монтаж, фоторедактирование, покупай от 40-50 тысяч. И там можно открывать много окон. И покупай со съёмной батареей.
Расскажу свой опыт. Я покупал свой первый ноутбук в магазине "Корпорация центр". Купил 4 ядра и с хорошей памятью. Пусть я не могу делать видеоблоги с фоторедактированием, я могу даже писать немного сайты. Правда, не писал коды. Но этому учатся. Служит ноутбук 1.5 года. Только не покупай ноутбуки Lenovo и HP. Если ты не готов HP сдавать по гарантии. Если что, пиши в личку.
