1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100 элементов. Заполнить его с клавиатуры. Найти:

а) удвоенную сумму положительных элементов;

б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)

1)

var i,k:integer;begin k:=0;for i:=50 to 500 do beginif (i mod 11=0)and(i mod 13=0) then k:=k+1;end;writeln(k);end.