Массив: Определить, есть ли пара соседних элементов с произведением, равным числу 56

@Андреич Серёг · Регистрация: 18.11.2012

Приветствую форумчане.
Прошу вас помочь с заданием.
Задача:
Массивы
1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Определить, есть ли пара соседних элементов с произведением, равным числу 56.

@CodeR · 19.11.2012, 09:28

Pascal

Const n=20;
Var A:array[1..n] of integer;
    i,j:byte;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End; 
    j:=0;
    For i:=1 to n-1 do
     if A[i]*A[i+1]=56 then j:=1;
    writeln(j=1);
End.

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
		1
	Массив: Определить, есть ли пара соседних элементов с произведением, равным числу 56 19.11.2012, 06:33. Показов 1652. Ответов 1 Метки нет (Все метки) Приветствую форумчане. Прошу вас помочь с заданием. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Определить, есть ли пара соседних элементов с произведением, равным числу 56. 0

Опции темы

Массив: Определить, есть ли пара соседних элементов с произведением, равным числу 56

Решение