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

1) program zz1;

var r, i:integer; / / задаем переменные целого типа

begin

for i:=50 to 500 do

begin

if (i mod 11 = 0) and (i mod 13 = 0) then r:=r + 1;

end;

writeln (' количество найденных чисел ', r); / /выводим ответ

end.

2) program zz1;

const n = 100; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if m[i] > 0 then k:=k+m[i];

writeln (' удвоенная сумма положительных элементов = ', k*2);

for i:=2 to n do

if m[i] > m[i-1] then writeln (' ', i);

end.