Помогите!!!Нужно написать программы ** Pascal + блок-схемы. С клавиатуры последовательно...

Question

Помогите!!!Нужно написать программы на Pascal + блок-схемы.
С клавиатуры последовательно вводится n-целых чисел:
1)Сколько чисел отличаются от первого на величину а?
2)Для всех чисел,кроме 1 и последнего ,определите ,сколько из них больше своих соседей?(слева и справа)
3)Вывести числа ,которые делятся на 3 ,но не делятся на 5.

Comments

Можно без блок-схемы?

---

да

Answer 1

Const
   n = 13;
Var
   a,i,C,k:integer;
   M:array[1..N] of integer;
Begin
k:=0;
Write('a = ');
ReadLn(a);
WriteLn('Введите целые числа');
For i:= 1 to n do
    Read(M[i]);
For i:= 2 to n do
    if M[i]-a = M[1] then k:=k+1;
WriteLn('1: k = ',k);
k:=0;
For i:= 2 to n-1 do
    if (M[i-1]M[i+1]) then k:=k+1;
WriteLn('2: k = ',k);
Write('3: ');
For i:= 1 to n do
    if (M[i] mod 3 = 0)and(M[i] mod 5 <> 0) then Write(M[i],' ')
End.

Comments

В конечном итоге должно выводиться число,которое обозначает кол-во чисел, удовлетворяющих условию

---

там получается паскаль выдает 1: k=0

---

2: k=0

---

3: (число или несколько чисел)

---

Ну так первое условие: кол-во элементов массива, отличающихся от первого на величину a. То есть, если первый элемент = 1, a = 3, то удовлетворять условию будут только элементы, равные 4, т.к. 4-3 = 1

---

Это понятно?

---

Второе условие: кол-во чисел, которые больше своих соседей. То есть, например: 1 5 3, тут пятёрка соответствует условию

---

В третьем и должно быть число или несколько чисел, ведь программа должна найти среди введённых числа, которые кратным трём и не кратны пяти, и вывести их все на экран

---

спасибо,я разобралась

---

ура!))