Работа с системой программирования на языке Паскаль
1) Напишите программу для реализации следующего сценария:
• целочисленный массив заполняется случайными числами (размерность
массива и числовой диапазон определите самостоятельно);
• выводится сообщение «Заполненный массив»;
• с новой строки выводятся элементы массива в строку через пробел;
• выводится сообщение «Введите значение числа К»;
• запрашивается ввод с клавиатуры целочисленного значения числа К;
• выводится сообщение «Элементы массива, кратные К»;
• осуществляется поиск в массиве элементов, кратных числу К;
• выводятся элементы массива, кратные числу К.
#include <vector>
using namespace std;
int main() {
cout << "Введите массив (0, чтобы закончить):\n";
int k,
sb = 0, cb = 0,
sg = 0, cg = 0;
vector<int> v;
while (true) {
cin >> k;
if (k == 0)
break;
else
v.insert(v.end(), k);
}
for (int i = 0; i < v.size(); i++) {
if (v[i] < 0) {
sb += -1 * v[i];
cb++;
}
else {
sg += v[i];
cg++;
}
}
cout << "Средний рост юношей: "
<< (sb / cb) << '\n'
<< "Средний рост девушек: "
<< (sg / cg) << '\n';
return 0;
}
// Внимание! Если программа не работает, обновите версию!
procedure MyArray(n:integer;var a:array of integer);
begin
a:=ArrFill(n,0); // заполняем массив нулями
Randomize; // инициализируем датчик случайных чисел
// в случайный элемент заносим слчайное значение
a[Random(0,n-1)]:=Random(1,99)
end;
begin
var n:=ReadInteger('n='); // читаем с клавиатуры размер массива
var mas:array of integer;
MyArray(n,mas); // вызываем процедуру
mas.Println // выводим сформированный массив
end.
Пример
n= 21
0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0