#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#include <time.h>
int main(){
setlocale(LC_ALL,"rus");
srand(time(0));
int **array_a;
int line;
int column;
int i, j;
int min_i;
int min_j;
printf("Введите размер матрицы: ");
scanf("%d %d", &line, &column);
array_a = (int**)malloc(sizeof(int)*line);
for(i = 0; i < line; i++)
array_a[i] = (int*)malloc(sizeof(int)*column);
printf("\nИсходный массив:\n");
for(i = 0; i < line; i++){
for(j = 0; j < column; j++){
array_a[i][j] = rand()%10;
printf("%d ", array_a[i][j]);
}
printf("\n");
}
min_i = 0;
min_j = 0;
for(i = 0; i < line; i++){
for(j = 0; j < column; j++){
if(array_a[i][j] < array_a[min_i][min_j]){
min_i = i;
min_j = j;
}
}
}
for(i = 0; i < line; i++){
for(j = min_j; j < column - 1; j++){
array_a[i][j] = array_a[i][j+1];
}
}
for(i = min_i; i < line - 1; i++){
for(j = 0; j < column - 1; j++){
array_a[i][j] = array_a[i+1][j];
}
}
printf("\nРезультат:\n");
for(i = 0; i < line - 1; i++){
for(j = 0; j < column - 1; j++){
printf("%d ", array_a[i][j]);
}
printf("\n");
}
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
Основними алгоритмічними структурами є: * слідування цикл розгалуження функції оператори Яка алгоритмічна структура описана «команди виконуються послідовно одна за іншою»? * слідування розгалуженняцикл цикл повторення Яка алгоритмічна структура описана «інструкції що виконують одну і ту ж послідовність дій поки діє задана умова»? * цикл розгалуження слідування лінійна Яка алгоритмічна структура описана «алгоритм, що містить хоча б одну умову в результаті перевірки якої може виконуватись розділення на декілька паралельних гілок»? * розгалуження слідування цикл повторення Яке призначення Функції pi модуля math? * повертає sqrt (x ** 2 + y ** 2 Зручно для обчислення гіпотенузи і довжини вектора повертає арккосинус x, в радіанах константа π = 3.1415 ... повертає косинус x, в радіанах Який оператор описаний «Такий складений логічний вираз буде набувати значення true тільки у тому випадку, якщо всі змінні або логічні вирази будуть мати значення true. Якщо хоча б один із них буде мати значення false то і весь вираз буде набувати цього значення»? * And Not Or Для чого використовується help ()? * означає перехід на новий рядок для вирівнювання тексту, завдяки відступам щоб помістити в рядок апостроф (одинарні лапки) або подвійні лапки, які оточені таким ж лапками вертикальна табуляція ознайомлення з описом модуля і функцій, які входять до нього Яке призначення Функції sqrt(x) модуля math? * повертає факторіал цілого числа x, якщо x не ціле виникає виключення ValueError квадратний корінь з x повертає дробову і цілу частину float числа. Обидва результати зберігають знак вихідного числа x і представлені типом float повертає x в ступені y. На відміну від операції ** перетворює обидва аргументи в тип float Який оператор описаний «Застосовується трішки по іншому: він ставиться на початку, тобто перед логічним виразом, надаючи йому при цьому протилежного значення»? * Not Or And End Який оператор описаний «Результатом виразу буде true в тому випадку, якщо хоча б один із складових цього виразу буде мати значення true»? * Or Not And End Яке призначення функції atan(x)? * Повертає арккосинус x, в радіанах Повертає арксинус x, в радіанах. Повертає арктангенс x, в радіанах. Повертає косинус x, де x виражений в радіанах. Повертає тангенс x, де x виражений в радіанах. Яке призначення Функції len() * підраховує символи в рядку переведення числа у двійкову систему числення пошук максимуму з 2 чисел, може приймати будь-яку кількість аргументів пошук мінімуму з 2 чисел, також може приймати будь-яку кількість аргументів переведення числа у вісміркову систему числення пройдите тест
Предполагается, что вводимые числа - целые.
1) С цикла Repeat Until
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
Repeat
Readln(i);
s:=s+i;
inc(k);
Until i=0;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
2) С цикла While
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
i:=1;
While i<>0 do
begin
Readln(i);
s:=s+i;
inc(k);
end;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
3) С цикла For
Program n1;
Uses CRT;
Var s,j,k,i: integer;
sr: real;
begin
Writeln('Vvedite kolichestvo chisel');
Readln(k);
Writeln('Vvodite chisla');
For j:=1 to k do
begin
readln(i);
s:=s+i;
end;
sr:=s/k;
writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.