Помогите пожалуйста решить задачу в Turbo Pascal?

Информатика | 10 - 11 классы

Помогите пожалуйста решить задачу в Turbo Pascal!

Посчитать в двумерном массиве количество нечетных чисел если массив является квадратной матрицей то транспонировать его.

Ответить на вопрос
Ответы (1)
Иван00345 5 нояб. 2020 г., 10:39:55

Program asd ;

Var A, B : array [1.

250, 1.

250] of integer ; i, j, n, m, k : integer ;

BEGIN

Write('Введите n : ') ; Readln(n) ;

Write('Введите m : ') ; Readln(m) ;

for i : = 1 to n do

begin for j : = 1 to m do

begin A[i, j] : = random(10) ; write(A[i, j] : 3) ; end ; writeln ; end ;

writeln ;

for i : = 1 to n do for j : = 1 to m do begin

If A[i, j] mod 2 = 1 then inc(k) ; end ; If n = m then begin

Writeln('Транспонирование : ') ; for i : = 1 to n do begin for j : = 1 to m do

begin write(A[j, i] : 3) ; B[i, j] : = A[i, j] ;

end ;

writeln ;

end ; writeln ; end else

Writeln('Кол - во нечетных элементов : ', k) ;

END.

Yarima 12 окт. 2020 г., 14:59:23 | 10 - 11 классы

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали на языке Turbo Pascal?

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали на языке Turbo Pascal.

Vasilii01 13 сент. 2020 г., 23:59:11 | 10 - 11 классы

Вычислить сумму и количество положительных элементов массива x?

Вычислить сумму и количество положительных элементов массива x.

X(100).

Turbo Pascal.

Devuhka1 6 мая 2020 г., 02:21:57 | 10 - 11 классы

Нужна помощь с Pascal Дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы?

Нужна помощь с Pascal Дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы.

01092006 22 янв. 2020 г., 12:08:21 | 5 - 9 классы

1) Массив из 30 элементов?

1) Массив из 30 элементов.

Посчитать отдельно среднее арифметическое положительных и отрицательных 2) Посчитать количество нечетных элементов массива.

Совсем не понимаю информатику, пожалуйста, помогите с этими задачами!

: С.

Kiborg113 9 авг. 2020 г., 01:39:35 | 5 - 9 классы

Найти количество делителей натурального числа?

Найти количество делителей натурального числа.

Сколько из них четных?

Решить в Turbo Pascal, без массивов.

Срочно, ПОЖАЛУЙСТА.

Crazy8606 1 янв. 2020 г., 20:16:07 | 10 - 11 классы

ПАСКАЛЬ?

ПАСКАЛЬ!

ПОЖАЛУЙСТА В двумерном массиве 4х4 определить количество чётных отрицательных элементов на главной диагонали матрицы.

Jador1 26 сент. 2020 г., 10:03:20 | 10 - 11 классы

Двумерные массивы?

Двумерные массивы.

Дан двумерный массив чисел.

Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент).

Сладкая897 20 авг. 2020 г., 06:33:45 | 10 - 11 классы

Помогите пожалуйста решить задачи 1?

Помогите пожалуйста решить задачи 1.

Найти сумму элементов двумерного массива у которых номер строки не четный 2.

Вывести на экран элементы двумерного массива у которых n столбца нечетный.

Ivanovav831 26 дек. 2020 г., 15:40:22 | 5 - 9 классы

В ОДНОМЕРНОМ МАССИВЕ ИЗ 10 ЭЛЕМЕНТОВ ПОСЧИТАТЬ КОЛИЧЕСТВО ЧЕТНЫХ ЧИСЕЛ И ПРОИЗВЕДЕНИЕ НЕЧЕТНЫХ?

В ОДНОМЕРНОМ МАССИВЕ ИЗ 10 ЭЛЕМЕНТОВ ПОСЧИТАТЬ КОЛИЧЕСТВО ЧЕТНЫХ ЧИСЕЛ И ПРОИЗВЕДЕНИЕ НЕЧЕТНЫХ.

DeadGirl5 6 сент. 2020 г., 01:59:41 | 10 - 11 классы

Turbo Pascal * * * * (Дан одномерный числовой массив?

Turbo Pascal * * * * (Дан одномерный числовой массив.

Определить произведение элементов массива, расположенных между максимальным и «центральным» элементами массива (предполагается, что число элементов – нечетное и максимальный единственный).

Если вам необходимо получить ответ на вопрос Помогите пожалуйста решить задачу в Turbo Pascal?, относящийся к уровню подготовки учащихся 10 - 11 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.