Консультация № 137061
16.05.2008, 13:11
0.00 руб.
0 1 1
В одномерном целочисленном массиве подсчитать количество пар стоящих рядом элементов, кратных 3.

Обсуждение

Неизвестный
16.05.2008, 13:47
общий
это ответ
Здравствуйте, Raevil!

Программа в приложении. Делитель <b>3</b> обозначил константой, чтобы удобно было менять, если понадобится.

Приложение:
Program Pr137061; Uses CRT; Const N = 96; Divisor = 3; { нужный нам делитель } Var Arr: Array[1..N] of Integer; i, Sum: Integer;Begin ClrScr; TextColor(15); { инициализация генератора случайных чисел } Randomize; WriteLn(‘Исходный случайно заполненный массив:‘); for i := 1 to N do begin Arr[i] := Random(100); { Выделяем числа, кратные трём, красным цветом } if Arr[i] mod Divisor = 0 then TextColor(12) else TextColor(15); Write(Arr[i]:4); if i mod 16 = 0 then WriteLn; end; TextColor(15); WriteLn; Sum := 0; for i := 1 to N - 1 do if (Arr[i] mod Divisor = 0) and (Arr[i+1] mod Divisor = 0) then inc(Sum); Write(‘В массиве ‘, Sum, ‘ пар рядом стоящих ‘); WriteLn(‘элементов, кратных ‘, Divisor, ‘.‘); ReadLn;End.
Форма ответа