1) что вычисляет фрагмент программы? s: =0; for i: =1 to 16 do if f[i] mod 3 < > 0 then s: =+m[i]; 2) что вычисляет фрагмент программы? k: =0; for i: =1 to 40 do if i mod 2=0 then k: =k+1; заранее

1)
Цикл for 16 раз выполняет действие:
Если текущий элемент массива f[i] не кратно трем, тогда к переменной S, прибавляется элемент текущей позиции массива m[i].

2)
Вычисляет количество чисел от 1 до 40 кратных двум.