В массиве А[1...7]отыскать сумму чётных элементов ,кратных 7. Программка Паскаль, безотлагательно!!

В массиве А[1...7]отыскать сумму чётных частей ,кратных 7. Программка Паскаль, безотлагательно!!

Задать свой вопрос
1 ответ

начало где вар, и аррау напиши сам(а)

for i=1 to 7 do

writeln(x)

k:=0;

for i=1 to 7 do

if (a[i] mod 2 =0) and (a[i] mod 7 =0)

then k:=k+1;

writeln(k)

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт