Написать программу.дана матрица а, имеющая n строк и n столбцов. сформируйте два одномерных массива. в один перешлите четные, а в другой — нечетные элементы матрицы. выведите на экран все массивы. . нужна
Const n=5; var a: array[1..n,1..n] of integer; b,c: array[1..n*n] of integer; k1,k2,i,j: integer; begin k1: =0; k2: =0; for i: =1 to n do for j: =1 to n do begin read(a[i,j]); if odd(a[i,j]) then begin inc(k2); c[k2]: =a[i,j]; end else begin inc(k1); b[k1]: =a[i,j]; end; end; writeln('четные'); for i: =1 to k1 do write(b[i],' '); writeln(); writeln('нечетные'); for i: =1 to k2 do write(c[i],' '); end.
NikonA83
12.09.2022
Var i,j,k,min: integer; a: array[1..10,1..10] of integer; begin randomize; for i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random(15)+1; min: =a[1,1]; for i: =1 to 10 do for j: =1 to 10 do if a[i,j]< min then min: =a[i,j]; for i: =1 to 10 do for j: =1 to 10 do if min=a[i,j] then k: =k+1; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j]: 5); writeln; end; writeln('минимальный элемент=',min); writeln('кол-во равных элементов=',k); end.
muraveiynik
12.09.2022
Тип имени - не совсем понятно. вы имете ввиду тип данных или само название переменной? если тип данных - то у каждого типа данных свой диапозон значений, а также с какими числами он дружит. short, long, int, byte - с целыми double, float - с плавающими запятыми boolean - логический (имеет лишь два значения - true или false) char - хранит в себе 1 символ string - строки если имя переменной - то это адрес к которому нужно ссылаться, так как при создании переменной в памяти выделяется ячейка, и имя - адрес к этой ячейке памяти. а значение переменной - значение, которое может быть любое число/символ/и т.д. в зависимости от выбранного типа данных.