<span>Const n=5;
Var B:array[1..n,1..n] of integer;
i,j:byte;
pr:real;
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Begin
B[i,j]:=random(10);
write(B[i,j]:3);
End;
writeln;
End;
pr:=1;
For i:=1 to n do
For j:=1 to n do
if i<j then
pr:=pr*B[i,j]; writeln('Произведение элементов = ',pr);
readln;
End.</span>
#include <iostream>
#include <cstdlib>
using namespace std;
int main() {
int i, a, b, pr, s;
cin >> a;
cin >> b;
pr = 1;
s = 0;
for (i=a; i = b; i++) {
pr = pr*i;
s = s + i;
}
cout << ("Summ = ") << s;
cout << ("Произведение = ") << pr;
return 0;
}
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<span>program sort;
type a=array[1..1000]of integer;
var
m:a;
i,n:integer;
procedure sortm(var m:a;n:integer);//сортировка массива
var
i,j,buf:integer;
begin
for i:=1 to n
do
for j:=i+1 to n do
if(m[i]>m[j])
then
begin
buf:=m[j];
m[j]:=m[i];
m[i]:=buf;
end;
end;
begin
randomize;
read(n);
for i:=1 to n do
m[i]:=random(999);
sortm(m,n);
for i:=1 to n
do
write(' ',m[i]);
end.</span></span>
Северно Ледовитый океан, озеро Байкал, река Нева (открой атлас и посматри).