Табличні величини

Опрацювати матеріал

Домашнє завдання параграф 6.1, створити програму 1 ст 160. ( В кого нема комп’ютера вправа 2 ст 164 письмово надсилаєте фото

корисні посилання: Лазарус 32 ,Лазарус 64, підручник , Про Inputbox

кому цікаво можете спробувати код

var
Form1: TForm1;
i, k: integer;
s: array [1..20] of integer;

__________________________________________________

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=StrToInt(Edit1.Text);
for i:=1 to k do
begin
s[i]:=StrToInt(InputBox(‘ввід елементів масиву’,’введіть елемент ‘+ IntToStr(i), ”)) ;
Label2.Caption:=Label2.Caption+’ ‘+IntToStr(s[i]);
end;
end;

роботи надсилати на

Тараненко О.С.	okstaranenko@gmail.com
Бурла С.О.	seroha@gmail.com