1) глаза-зрение
2) нос-обаняние
3) уши-слух
4) рот-речь
Ну типа это WWW это просто обзначает что ты на находишь в глобальной паутине
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
k:=k+1;
b[k]:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n*m-1 do
for j:=i+1 to n*m do
if b[i]>b[j] then
begin<span>
buf:=b[i];</span>
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m*n do<span>
write(b[i]:4);
end.</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var x:=ReadlnInteger('Введите x');
var y:=ReadlnInteger('Введите y');
writeln(max((x+y),(x*y))-2);
end.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int k=0,s=0,n;
cout<<"Введите размер массива: ";
cin>>n;
int a[n];
for (int i=0; i<n; i++) cin>>a[i];
cout<<"\nВведите K: ";
cin>>k;
for (int i=0; i<n; i++) if (a[i]%k==0) s+=a[i];
cout<<"\nСумма чисел кратных "<<k<<" = "<<s<<endl;
system("PAUSE");
}