Question

Задать массив m(7) случайными числами от 12 до 73 подсчитать количество элементов массива, больших или равных 65(паскаль)

Answer 1

Відповідь:

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void randarr(int *arr,const int size){

for(int i = 0 ; i < size ; i++){

 arr[i] = rand() % 73 + 12;

}

}

void printarr(int *arr,const int size){

for(int i = 0 ; i < size ; i++){

 cout << arr[i] << " ";

}

}

int expression(int *arr, const int size){

int counter = 0;

for(int i = 0; i < size; i++){

 if(arr[i] >= 65){

  counter++;

 }

}

return counter;

}

const int size = 7;

int main(){

srand(time(NULL));

setlocale(LC_ALL , "Rus");

int *arr = new int[size];

randarr(arr,size);

cout << "Масив: ";

printarr(arr,size);

cout << "\nКоличество елементов которые больше или равны 62 = " << expression(arr,size) << endl;

delete [] arr;

return 0;

}

Пояснення:

Это не Паскаль,но может пригодится

Answer 2

Для выполнения данной задачи в языке программирования Паскаль мы можем использовать следующий алгоритм:

1. Объявляем массив m размером 7. 2. Генерируем случайные числа в диапазоне от 12 до 73 и заполняем ими массив m. 3. Объявляем переменную count и инициализируем ее нулем. Она будет использоваться для подсчета количества элементов массива, больших или равных 65. 4. Проходим по всем элементам массива m с помощью цикла for. - Если текущий элемент больше или равен 65, увеличиваем значение переменной count на 1. 5. Выводим результат - количество элементов массива, больших или равных 65.

Пример реализации алгоритма на языке программирования Паскаль:

program countElements; var m: array[1..7] of Integer; count, i: Integer; begin Randomize; // инициализация генератора случайных чисел

// заполнение массива m случайными числами от 12 до 73 for i := 1 to 7 do m[i] := Random(62) + 12;

// подсчет количества элементов массива, больших или равных 65 count := 0; for i := 1 to 7 do if m[i] >= 65 then count := count + 1;

// вывод результата Writeln('Количество элементов массива, больших или равных 65: ', count); end.