program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.
// Програма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;
}