Конструктор алгоритмов.
Дано двузначное (трехзначное) число. Написать программу определения: входит ли в него цифра 5?
Это делается в Конструкторе алгоритмов, не в паскале,
226
274
Ответы на вопрос:
Var f: text; i, j, n, n1: integer; matrix: array[,] of real; begin assign(f, 'informat8.txt'); reset(f); //найдём количество строк в матрице while not eof(f) do begin readln(f); inc(n); end; writeln('исходная матрица размерности ', n, 'x', n); //инициализируем массив (размерность узнали выше) matrix : = new real[n, n]; reset(f); // далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0) for i : = 0 to n - 1 do begin for j : = 0 to n - 1 do begin read(f, matrix[i, j]); write(matrix[i, j]: 8: 2); end; readln(f); writeln; end; writeln; n1 : = 0; for i : = 0 to n - 1 do for j : = 0 to n - 1 do if matrix[i, j] < 0 then inc(n1); if n1 > round(n * n / 2) then begin writeln('отрицательных элементов больше половины'); //удваиваем элементы в чётных строках for i : = 0 to n - 1 do begin if odd(i) then begin for j : = 0 to n - 1 do matrix[i, j] : = matrix[i, j] * 2; end; end; end else begin writeln('отрицательных элементов меньше половины или ровно половина'); //удваиваем элементы последнего столбца for i : = 0 to n - 1 do matrix[i, n - 1] : = matrix[i, n - 1] * 2; end; writeln('результирующая матрица'); for i : = 0 to n - 1 do begin for j : = 0 to n - 1 do write(matrix[i, j]: 8: 2); writeln; end; end.результат работы:
Популярно: Информатика
-
Arturkim0413.05.2021 05:34
-
бека15122.08.2022 10:20
-
nysha04614.02.2021 14:49
-
yyyoooppp26.10.2022 00:25
-
Дима6u943207.11.2020 20:24
-
arina52226.02.2020 18:33
-
вика283209.01.2020 14:50
-
Аааоо016.08.2021 00:56
-
Фара132320.03.2022 20:13
-
wannaone14.03.2020 22:35