Как написать программу на языке Паскаль для поиска количества элементов массива, больших 7, но меньших 35
Разделы
Дата публикации:

Как написать программу на языке Паскаль для поиска количества элементов массива, больших 7, но меньших 35

50b23602

Для того чтобы написать программу на языке Паскаль, которая будет находить количество элементов массива, каждый из которых больше 7, но меньше 35, нужно следовать определенным шагам:

  1. Объявить переменные:
    • Массив целых чисел arr
    • Переменную для хранения количества элементов, удовлетворяющих условию count
    • Переменные для циклов i и n
  2. Заполнить массив arr случайными числами от 1 до 50
  3. Создать цикл, который будет проходить по всем элементам массива и проверять условие:
    • Если элемент больше 7 и меньше 35, увеличивать переменную count на 1
  4. Вывести на экран количество элементов, удовлетворяющих условию Пример программы на языке Паскаль: 
    program CountElements;
var
arr: array[1..10] of integer;
count, i: integer;
begin
count := 0;
// Заполнение массива случайными числами от 1 до 50
randomize;
for i := 1 to 10 do
begin
arr[i] := random(50) + 1;
writeln('Элемент ', i, ': ', arr[i]);
end;
// Подсчет количества элементов, удовлетворяющих условию
for i := 1 to 10 do
begin
if (arr[i] > 7) and (arr[i] < 35) then
count := count + 1;
end;
writeln('Количество элементов, больших 7 и меньших 35: ', count);
end.

    После выполнения данной программы на экране будет выведено количество элементов массива, каждый из которых больше 7, но меньше 35.
Свежак

© Блог программиста, подавшегося в SEO 2014