program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
Словами:Переменные S, a,b, i: integer;
ВВОД
a=33; b=66;S=N1.
Цикл по i от a+1 до b делать S=S+N;
Const n=10;var a:array [1..n] of integer;i,max:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(100);writeln(a[i]);end;max:=0;for i:=1 to n dobeginif a[i]>max then beginmax:=a[i];end;end;writeln('Max = ',max);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;
}