Var num1,num2:real;
begin
write('Введите первое число: '); readln(num1);
write('Ведомое второе число: '); readln(num2);
writeln('Наибольшее число: ');
if (num1 > num2) then writeln(num1)
else writeln(num2)
end.
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n=4, m=5;
int a[n][m];
srand(time(0));
int s=0;
for(int i=0; i<n; i++)
{
for(int j=0; j<m; j++)
{
a[i][j]=-99+rand()%199;
cout << setw(4) <<a[i][j];
s+=a[i][j];
}
cout << endl;
}
float r=float(s)/(m*n);
int k=0;
for(int i=0; i<n; i++)
for(int j=0; j<m; j++)
if(a[i][j]>r)
k++;
cout << "k = " << k;
return 0;
}
Во всех фрагментах выравнивание по левому краю