Объяснение:
"Ну пока...", вероятнее всего имелся ввиду цикл ("while" или "do...while"). К сожалению, язык программирования вы не указали, поэтому объясню в виде команд.
Скорее всего, вам дана матрица размером (n*n или n*m), в любом случае можем запросить ввод данных два раза, не грубая ошибка, но... Не профессионально.
Нам нужны две переменные(n, m) в случае матрица (n*m) или одна переменная (n), в случае (n*n)
Целочисленные переменные n, m;
Вводим значения n, m;
Создаём матрицу A[n][m];
Целочисленная переменная j = 0;
//Нам будет необходимо пройти только по первой строке
//Цикл while
While (j<m)
{
A[0][j]="//";
j++;
}
//Цикл do...while
Do
{
A[0][j]="//";
j++;
}while(j<m);
Как программа будет выглядеть на языке С++
int n,m;
cin>>n>>m;
int A[n][m];
int j=0;
//Цикл while
while(j<m)
{
A[0][j] = "/";
j++
}
//Цикл do..while
do
{
A[0][j] = "/";
j++
}while(j<m);
program t1;
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to 10 do
begin
mas[i] := random (100) - 50;
write (mas[i]);
end;
begin
for j:=1 to 9 do
for i:=1 to 9-j do
if M[i] < M[i+1] then
swap(mas[i],mas[i+1])
end;
writeln
for i := 1 to 10 do write (mas[i]);
end;
end. program z1;
uses crt;
var i, n:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write(' размер =' );readln(n);
for i:=1 to n do
begin
a[i]:=random(46))+1;
write(a[i], ' ' );
end;
for i:=n downto 1 do
write(a[i],' ');
readkey;
end.
program z2;
uses crt;
var i, n, r: integer;
a: array[1.. 10000] of integer;
begin
clrscr;
randomize;
write
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
i:=1;
while i<=n-1 do
begin
r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
inc(i,2);
end;
for i:=1 to n do
write(a[i],' ');
readkey;
end.
Задача 3.
program z3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
max:=a[i]; imax:=i;
end;
end;
readkey;
end.
program z4;
const N=10;
type Mas=fray [1..N] of integer;
var a: Mas;
i: integer;
S:integer;
begin
randomize;
for i:=l to N do
begin
a[i]:=-100+random(201);
write(a[i]:5)
end;
writeln;
S:=0;
if A[i]>0 then
S:=S+A[i];
writel
readln
end.
program z5;
uses crt;
var i,k,,r:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write(' число элемен. п=');readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
write(a[i], ' ');
{Проверяем на четность и считаем количество четных элементов.}
if a[i] mod 2=0 then inc(k, 1);
end;
write('k= ',k);
readkey
end.
