Question

LAZARUS
Створіть проект,у якому вводяться значення елементів табличної величини з 8 цілих чисел,кожне із цих чисел збільшується на 17.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

for i := 0 to 7 do

begin

Edit[i].Text := IntToStr(StrToInt(Edit[i].Text) + 17);

end;

end;

Answer 2

Відповідь:

program Project1;

{$APPTYPE CONSOLE}

uses

 SysUtils;

var

 table: array[1..8] of Integer;

 i: Integer;

begin

 // Ввід значень елементів табличної величини

 for i := 1 to 8 do

 begin

   Write('Введіть значення для елемента ', i, ': ');

   ReadLn(table[i]);

 end;

 // Збільшення кожного елемента на 17

 for i := 1 to 8 do

 begin

   table[i] := table[i] + 17;

 end;

 // Виведення збільшених значень елементів табличної величини

 Writeln('Збільшені значення елементів:');

 for i := 1 to 8 do

 begin

   WriteLn(table[i]);

 end;

 ReadLn;

end.