1.Правильно ли описан массив А? Если нет, то что надо изменить? Type odmyarray=Array[I..n+20] Of Integer;
Var A: odmyarray;
Что получится в результате выполнения программы?
Program Variant3;
Const n=17;
Type myarray=Array[1..n] Of Integer;
Var B: myarray;
i: Byte; p: Integer;
Begin
p:=0;
For i:=l To n Do
Begin
B[i]:=-35+Random(121);
If C[i] Mod 10 = 0 Then p:=p+l;
End;
Writeln (p);
Readln;
End.
3. Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Найти:
сумму положительных элементов, значения которых меньше 10;
и вывести индексы тех элементов, значения которых кратны 3 и 5.
4. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.
