WorksheetsТабличні величини
Total questions: 7
Worksheet time: 5mins
Обери вірний опис масиву w
var a:array [1..15] of integer;
var w: array [1..15] of string;
var w: array [1..15] of char;
var w: array [1..15] of real;
var w: array [1..15] of integer;
Який масив описано var a: array [1..12] of Char;
Який масив описано var v: array [1..12] of string;
Що виконує дана програма?
begin
a[i]:= StrToInt(Memo1.Lines[0]);
for i:=1 to 15 do
a[i+1]:= StrToInt(Memo1.Lines[i]);
end;
Вводить 16 елементів до поля Мемо1
Вводить 15 елементів до поля Мемо1
Рахує кількість елементів у полі Мемо1
Виводить суму 15 елементів з поля Мемо1
Що виконує даний фрагмент програми?
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=0;
a[i]:= StrToInt(Memo1.Lines[0]);
for i:=1 to 9 do
begin
a[i+1]:= StrToInt(Memo1.Lines[i]);
S:=S+a[i];
end;
edit1.Text:=IntToStr(S);
end;
Рахує кількість додатніх елементів масиву
Рахує додатні елементи масиву
Рахує суму елементів масиву
Рахує кількість парних елементів масиву
Що виконує фрагмент програми?
Рахує суму елементів масиву
Рахує кількість елементів масиву
Рахує кількість додатніх елементів масиву
Расує суму додатніх елементів масиву
Куди можна додати edit1.Text:=IntToStr(s);
До рядка з міткою 1
До рядка з міткою 2
Після останнього end;
Після рядка 55
немає вірного варіанту
