В массиве хранится информация о годовых отметках по математике 25 учащихся класса (случайные числа от 2 до 10). Определите, есть ли в классе учащиеся, имеющие отметку 10, и если да, то выведите порядковые номера этих учащихся.
Var A: array[1..20, 1..20] of integer; m, n, k, i, j: integer; begin randomize; repeat write('Введите число столбцов и строк через пробел: '); readln(n, m); until (n in [1..20]) and (m in [1..20]); for i := 1 to m do begin for j := 1 to n do begin A[ i, j ] := random(19) - 9; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; writeln; writeln('Заменяем отрицательные числа на нули, положительные - на единицы:'); writeln; for i := 1 to m do begin for j := 1 to n do begin if A[ i, j ] <= 0 then A[ i, j ] := 0 else A[ i, j ] := 1; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?
nh = A div C - количество квадратов умещающихся по-вертикали
nw = B div C - количество квадратов умещающихся по-горизонтали
n = nh * nw = общее количество квадратов.
Sr = A * B - 2*C*C
Код:
using System;namespace ThisAnswerIsNotMine { class Program { private static void Eq(double a) { var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI; Console.WriteLine($"Для a = {a}, x = {x}"); } private static void Squares(int A, int B, int C) { int nh = A / C; int nw = B / C; int n = nh * nw; int Sr = A * B - 2*C*C; Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}"); Console.WriteLine($"Площадь оставшегося куска {Sr}"); } private static void Main() { Eq(double.Parse(Console.ReadLine()!)); Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!)); } }}
m, n, k, i, j: integer;
begin
randomize;
repeat
write('Введите число столбцов и строк через пробел: ');
readln(n, m);
until (n in [1..20]) and (m in [1..20]);
for i := 1 to m do begin
for j := 1 to n do begin
A[ i, j ] := random(19) - 9;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
writeln;
writeln('Заменяем отрицательные числа на нули, положительные - на единицы:');
writeln;
for i := 1 to m do begin
for j := 1 to n do begin
if A[ i, j ] <= 0 then A[ i, j ] := 0
else A[ i, j ] := 1;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?
Для получения корня между и n = 1.
Задние 2nh = A div C - количество квадратов умещающихся по-вертикали
nw = B div C - количество квадратов умещающихся по-горизонтали
n = nh * nw = общее количество квадратов.
Sr = A * B - 2*C*C
Код:
using System;namespace ThisAnswerIsNotMine { class Program { private static void Eq(double a) { var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI; Console.WriteLine($"Для a = {a}, x = {x}"); } private static void Squares(int A, int B, int C) { int nh = A / C; int nw = B / C; int n = nh * nw; int Sr = A * B - 2*C*C; Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}"); Console.WriteLine($"Площадь оставшегося куска {Sr}"); } private static void Main() { Eq(double.Parse(Console.ReadLine()!)); Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!)); } }}