Найти
: найти сумму минимальных элементов 3х матриц разных порядков. использовать функцию/процедуру
#include
#include
#include
#include
void vv(int , int a, int b)
{
srand(time(null));
setlocale(0, "russian");
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
{
a[i][j] = rand() % 100;
}
}
puts("исходная матрица: \n");
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
{
printf_s("%4d", a[i][j]);
}
puts("\n");
}
}
int minmatr(int arr[15][15])
{
int min;
min = arr[0][0];
for (int i = 0; i < 15; i++)
{
for (int j = 0; j < 15; j++)
{
if (arr[i][j] < min)
{
min = arr[i][j];
}
}
}
return min;
}
int main()
{
setlocale(0, "russian");
int a[15][15];
int m, n, k, l, x, y, minzn1, minzn2, minzn3, sum;
sum = 0;
puts("введите размер первой матрицы (m*n, m< =15, n< =15): ");
scanf_s("%d %d",& m, & n);
vv(a, m, n);
minzn1 = minmatr(a);
printf_s("минимальный элемент этой матрицы = %d\n", minzn1);
puts("введите размер второй матрицы (k*l, k< =15, l< =15): ");
scanf_s("%d %d", & k, & l);
vv(a, k, l);
minzn2 = minmatr(a);
printf_s("минимальный элемент этой матрицы = %d\n", minzn2);
puts("введите размер первой матрицы (x*y, x< =15, y< =15): ");
scanf_s("%d %d", & x, & y);
vv(a, x, y);
minzn3 = minmatr(a);
printf_s("минимальный элемент этой матрицы = %d\n", minzn3);
sum = minzn1 + minzn2 + minzn3;
printf_s("сумма минимальных элементов матрицы = %d", sum);
return 0;
}
неправильно считает минимальные элементы..
Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение:
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение: