Program Program1; Var i,min,max,nmin,nmax:integer; a:array [1..10] of integer; begin randomize; writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(100)+1; writeln('a[',i,']=',a[i]); end; nmin:=1; min:=a[nmin]; nmax:=1; max:=a[nmax]; for i:=1 to 10 do begin if a[i]>max then begin nmax:=i; max:=a[i]; end; if a[i]<min then begin nmin:=i; min:=a[i]; end; end; a[nmin]:=max; a[nmax]:=min; writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max); writeln('Полученный массив:'); for i:=1 to 10 do writeln('a[',i,']=',a[i]); end.
#include <iostream> using std::cout; using std::endl; #include <cstdlib> using std::rand; using std::srand; #include <ctime> using std::time; #include <iomanip> using std::setw;
Program Program1;
Var
i,min,max,nmin,nmax:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
writeln('a[',i,']=',a[i]);
end;
nmin:=1;
min:=a[nmin];
nmax:=1;
max:=a[nmax];
for i:=1 to 10 do
begin
if a[i]>max then
begin
nmax:=i;
max:=a[i];
end;
if a[i]<min then
begin
nmin:=i;
min:=a[i];
end;
end;
a[nmin]:=max;
a[nmax]:=min;
writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max);
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
#include <iomanip>
using std::setw;
int main()
{
int a[6][7];
srand(time(0));
for(int i = 0; i < 6; i++)
{
for(int j = 0; j < 7; j++)
{
a[i][j] = rand() % 17 - 4;
cout << setw(2) << a[i][j] << ' ';
}
cout << endl;
}
cout << endl;
for(int i = 1; i < 6; i += 2)
{
for(int j = 0; j < 7; j++)
{
a[i][j] = 1;
}
}
for(int i = 0; i < 6; i++)
{
for(int j = 0; j < 7; j++)
{
cout << setw(2) << a[i][j] << ' ';
}
cout << endl;
}
cout << endl;
return 0;
}