Задача1.
Дано масив А[1..N]. Замінити вcі елементи, що дорівнюють 2 на 5. (N=7).
ФОРМА:
КОД ПРОЦЕДУРИ:
procedure TForm1.Button1Click(Sender: TObject);
const n=7;
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=StrToInT(StringGrid1.Cells[i-1,0]);
end;
k:=0;
for i:=1 to n do
if a[i]=2 then a[i]:=5;
for i:=1 to n do
StringGrid2.Cells[i-1,0]:=IntToStr(a[i]);
end;
Задача2.
Дано масив А(N), N=7. Підрахувати кількість елементів, що більші за 5 і менші за 10.
ФОРМА:
КОД ПРОЦЕДУРИ:
procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=StrToInT(StringGrid1.Cells[i-1,0]);
end;
k:=0;
for i:=1 to n do
if (a[i]>5) and (a[i]<10) then k:=k+1;
Label1.Caption:='k='+IntToStr(k);
end;
