Петр - любитель футбола. Всю свою жизнь он мечтал посещать матчи чемпионатов мира, но билеты были слишком дорогими для его скромного бюджета. К счастью, в этом
году, за отличные результаты в обучении, Петр получил премию в сумме S lei, что позволяет
ему посетить, по крайней мере, нескоьлко футбольных матчей этго зрелищного мероприятия.
Известно, что на чемпионате мира будут сыграны n матчей, которые, в учебных целях
обозначены через 1, 2, 3, ... i, ... n. В общем случая, стоимости билетов на различные матчи
могут и не совпадать. Обозначим через стоимость билета на i-ый матч.
Петр хотел бы узнать количество всех возможных расхода имеющихся у
него денег путем покупки билетов на футбольные матчи. Он не не собирается потратить в
обязательном порядке все деньги или посетить в объязательном порядке определенное число
матчей.
решите на языке паскаль
Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
begin
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
for i:=1 to 8 do
begin
if B[i]>0 then
Write(B[i],' ');
end;
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению
// Програма1:
#include <iostream>
using namespace std;
const int n = 15;
int main() {
int i, count;
float B, A[n];
cout << "B=";
cin >> B;
for(i = 0; i < n; i++){
cout << "A[" << i << "]="; cin >> A[i];
}
count = 0;
for(i = 0; i < n; i++)
if (A[i] > B)
count++;
cout << count << endl;
return 0;
}
// Програма2:
#include <iostream>
using namespace std;
const int n = 15;
int main() {
int i, count;
float B, A[n] = {3.05,-9,-5,22.5,12,-6.045,5,9,3,-5,4.1,8,1,0,15};
cout << "B=";
cin >> B;
count = 0;
for(i = 0; i < n; i++)
if (*(A + i) > B)
count++;
cout << count << endl;
return 0;
}