1) определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) дан массив целых чисел, состоящий из 100 элементов. заполнить его с клавиатуры. найти: а) удвоенную сумму положительных элементов; б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
1)
var i,k:integer;
begin k:=0;
for i:=50 to 500 do begin
if (i mod 11=0)and(i mod 13=0) then k:=k+1;
end;writeln(k);
end.