№1) Что выведет ** экран данная программа? Var k, m: integer; Dat: array[1..10] of...

Question

№1)
Что выведет на экран данная программа?

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[k] = 15 then
begin
m := m+1;
end;
writeln(m);
End.

.....

№2)
Чему равны элементы массива В?

var

B: array[1..5] of integer;

i:integer;

begin

for i:=1 to 5 do

if i mod 2 = 0 then a[i]:=5

else a[i]:=10;

end.



Выберите один или несколько ответов:
a. Все элементы массива имеют разное значение
b. Элементы равны 5 10 5 10 5
c. Сумма элементов делится на каждый из элементов массива без остатка
d. Элементы равны 10 5 10 5 10
e. Сумма элементов массива делится на 15

......

№3)
"разнотипных" "понятие" "значение номер мнение имя расположение однотипных

Массив - это совокупность "......" элементов, имеющих общее "......"
, но у каждого свое "......" .

Answer 1

1) Вычисляется кол-во элементов массива равных 15

2) d. Элементы равны 10 5 10 5 10, потому что 1 - нечетное

3) Массив - это совокупность "пронумерованных" элементов, имеющих общее "тип" , но у каждого свое "значение" .

Comments

Эээм только сейчас заметила, что есть слова, которые надо вставить. Если правильно грамматически распределить то будет

Массив - это совокупность "разнотипных" элементов, имеющих общее "понятие" , но у каждого свое "значение" .

Но этот ответ неверен впринцепе.