1. Дана матрица размером 3х2. Найти произведение элементов матрицы. ( )
2. Дана матрица размером 4х4. Найти среднее значение элементов массива. Найти номер элемента массива совпадающего со средним. ( )
3. Дана матрица размером 3х5.Найти количество элементов матрицы больших 0, меньших 0 и равных 0. ( )
4. Дана матрица размером 4х4.Найти сумму чётных и нечётных элементов таблицы.
( )
5. Дана матрица размером 5х2. Разделить все элементы матрицы на минимальный элемент. ( )
6. Дана матрица размером 4*4. Найти наибольший элемент на побочной диагонали. Найти номер строки и номер столбца, на пересечении которых он находится. ( )
7. Дан двумерный массив А[6,9], заполненный случайным образом. Заменить чётные элементы массива на число 11. ( )
8.(ЕГЭ 2018) Дан целочисленный квадратный массив 10 x 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы.
Привет всему 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.
Объяснение: