Помогите пожалуйста решить задачи 1.найти сумму элементов двумерного массива у которых номер строки не четный 2. Вывести на экра
Помогите пожалуйста решить задачи 1.найти сумму элементов двумерного массива у которых номер строки не четный 2. Вывести на экран элементы двумерного массива у которых n столбца нечетный
var a: array[1..m, 1..n] of integer; i, j, s: integer;
begin for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(21) - 10; if (i mod 2) <> 0 then s := s + a[i, j]; write(a[i, j]:4); end; writeln; end; write('Сумма элементов на нечетных строках = ', s); end.
var a: array[1..m, 1..n] of integer; i, j, s: integer;
begin for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(21) - 10; if (i mod 2) <> 0 then s := s + a[i, j]; write(a[i, j]:4); end; writeln; end; writeln('Элементы на нечетных столбцах:'); for i := 1 to m do begin for j := 1 to n do begin if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], ' '); end; writeln; end; end.
Если А делится на 55, то оно делится на 5 и на 11. Это уже три утверждения, но истинными могут быть только два. То есть А не делится на 55. Если А делится на 11, нам нужно выбрать еще два истинных утверждения. Но делимость на 5 и на 55 будут следовать друг из друга, а меньше 10 А быть не может, т.к. 11 больше 10. Остается только вариант, когда А меньше 10, делится на 5, не делится на 11 и 55. Т.е. А = 5
Особенностью единиц измерения информации является то, что в каждой последующей иерархически высшей единице содержится 2^<span>10 единиц предыдущего уровня. В отличии от привычных кг граммов и тд, где аналогично в более крупной единице содержится ровно 10, 100 или 1000 единиц более низкого уровня. Так в Гб содержится 1024 Мб В 1 МБ содержится 1024 Кб а в 1 Кб содержится 1024 байт Далее есть одна особенность: в 1 Байте только 8 Бит. Бит - элементарная единица.
Var n, f, o: string; a, i: integer; begin write('Введите фамилию '); Readln(f); write('Введите имя '); Readln(n); write('Введите отчество '); Readln(o); a := length(n) + length(f) + length(o); Writeln('Длина имени, фамилии и отчества равна ', a); Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. '); a := 0; for i := 1 to length(f) do if f[i] = 'и' then a := a + 1; Writeln('Количество букв и в фамилии ', a); <span>end.</span>