Предполагается, что вводимые числа - целые.
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.
#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;
}
