Uses crt; var a: array [0..5,0..5] of integer; i, j, sdvig ,k: integer; Begin writeln('Ввод матрицы:'); for i := 1 to 5 do begin for j := 1 to 5 do read(a[i,j]); end; write('Сдвиг на '); readln(sdvig); for i := 1 to 5 do for k := 1 to sdvig do begin a[i,0] := a[i,5]; for j := 5 downto 1 do a[i,j] := a[i,j - 1]; end; for i := 1 to 5 do begin for j := 1 to 5 do write(a[i,j],' '); writeln; end; End.
sport2293032
26.03.2022
Как я понял то а и b - это индексы начала и конца перебора данного массива, если это так то решение таково : #include <iostream> using namespace std; int main() { int B[12]; for(int i=0;i<12;i++) cin>>B[i]; //занесение в первоначальный массив В int a,b; cin>>a>>b; //считывание необходимого промежутка int C[b-a]; //обьявление конечного массива for(int i=b-a,k=0;i<b;i++,k++) { С[k]=B[i]; // перенос нужных значений } int min=C[0]; //переменная в которой будет в итоге храниться минимальное знач. for(int i=0;i<(b-a);i++) { if(C[i]<min) //нахождение минимального элемента min=C[i]; } cout<<min; //вывод минимального элемента return 0; }
Sacharov84
26.03.2022
Решение данной задачи для n-го кол-ва элементов(если надо 3, то просто присвой n=3) на языке C/C++ :
#include <iostream> using namespace std; int main() { int n; // обьявление переменной под размер миссива cin>>n; // или n=3, если тебе надо всего 3 элемента ввести int mas[n]; // обьявление массива for(int i=0;i<n;i++) cin>>mas[i]; // занесение элементов в массив int sum=0, count=0; // переменная под сумму положительных и их кол-во for(int i=0;i<n;i++) { if(mas[i]>0) { sum+=mas[i]; count++; } cout<<sum/count; // вывод результата через формулу сумма/кол-во return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана матрица.осуществить циклический сдвиг вправо на заданное количество позиций.текст программы на
var a: array [0..5,0..5] of integer; i, j, sdvig ,k: integer;
Begin
writeln('Ввод матрицы:');
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i,j]);
end;
write('Сдвиг на ');
readln(sdvig);
for i := 1 to 5 do
for k := 1 to sdvig do
begin
a[i,0] := a[i,5];
for j := 5 downto 1 do
a[i,j] := a[i,j - 1];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i,j],' ');
writeln;
end;
End.