Алгоритм знаходження елементів, що задовольняють задані умови

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Створіть у власній папці – папку Знаходження елементів за умовою

Завдання 1

Створіть проєкт, у якому вводяться значення елементів табличної величини із 25 цілих чисел у багаторядковому текстовому полі, потрібно визначити скільки разів зустрічається число, яке ми вводимо у поле серед елементів масиву. Збережіть проект у папці з іменем Завдання 54.1, створеній у вашій папці.

1.               В середовищі розробки програм створіть форму за зразком та заповніть поле Memo 1 25 елементами (використовуючи властивість Lines) та додайте до нього смугу прокручування (використовуючи властивість ScrollBars елемента керування Memo1 задайте значення ssAutoHorizontal.)

1. Запрограмуйте клавішу підрахувати:

var

  Form1: TForm1;

  a: array [0..24] of Integer;

  k, num, i:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

  num:=StrToInt(Edit1.Text);

  k:=0;

  for i:=0 to 54 do

    begin

      a[i]:=StrToInt(Memo1.Lines[i]);

      if a[i]=num then k:=k+1;

    end;

  label2.Caption:=IntToStr(k)+' повторень';

end;

end.  

Збережіть проект .

Завдання 2

Створіть проєкт, у якому вводяться значення елементів табличної величини із 10 дійсних чисел у багаторядковому текстовому полі, де від’ємні елементи масиву замінюються нулем. Збережіть проект у папці з іменем Завдання 54.2, створеній у вашій папці.

procedure TForm1.Button1Click(Sender: TObject);

var a: array [0..9] of real; i: integer;

begin

 for i:=0 to 9 do

 a[i] := StrToFloat(Memo1.Lines[i]);

   for i := 0 to 9 do

   begin

   If a[i] < 0

   Then a[i]:=0;

   Memo2.Lines.Append(FloatToStr(a[i-1]));

   end;  

Завдання 3

Для N цілих чисел визначити суму й кількість додатніх чисел, які діляться на 6 без остачі.

Вхідні дані

У першому рядку задано кількість чисел N (0 < N ≤ 100), у наступному рядку через пропуск задано самі числа, значення яких по модулю не перевищують 10000.

Вихідні дані

У єдиному рядку виведіть спочатку кількість вказаних чисел і через пропуск їх суму.