align="justify"> end;
s: = 0;
{обчислення кількості позитивних елементів масиву}
for i: = 1 to n do
{якщо елемент масиву> 0, то збільшуємо s на 1}
if A [i]> 0 then s: = s +1;
{Якщо s> 0, то виводимо значення s, інакше виводимо повідомлення У масиві немає позитивних елементів }
if s> 0 then
writeln ('Кількість позитивних елементів масиву:', s)
else writeln ( У масиві немає позитивних елементів );
readln;.
. Контрольний розрахунок
Результат в Turbo Pascal: Кількість позитивних елементів масиву: 4
Контрольні запитання до завдань 4
. Визначення масиву.
Масив - сукупність фіксованого кількості пронумерованих однотипних елементів, що мають загальне ім'я.
2. Що таке змінна з індексом?
Кожен елемент масиву має свій порядковий номер (індекс). Наприклад, A [1] або A [i]. p align="justify"> 3. міцний зв'язок індексування елементів масиву з параметром циклу For?
Обробка елементів масиву виробляється в циклі. Причому параметр циклу використовується для індексування елементів масиву. Наприклад, висновок елементів масиву:
for i: = 1 to n do ('A [', i, '] =', A [i]);
4. Способи опису масивів. Який із способів опису масивів може бути використаний при передачі масивів у процедури та функції через список формальних параметрів.
Для опису масивів можна використовувати два способи:
1) type myarray = array [1.5] of integer;
A: myarray;
У розділі Type визначений один конкретний тип. Ім'я цього типу myarray. Далі в розділі var цей тип застосований для оголошення масиву A.
Той же самий масив можна оголосити так:
2) var A: array [1.5] of integer;
При передачі процедур і функцій масивів через списки формальних параметрів використовується тільки перший спосіб.
4. Використання оператора циклу For для введення - виведення та обробки елементів масиву.
Так як введення-виведення елементів масиву та їх обробка засновані на послідовному переборі всіх його елементів, кількість яких відомо заздалегідь, то п...
